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Por dificuldades surgidas à última hora com um 
dos jogos premiados no mês de Julho, só nos é 
possível publicar um deles. Testaremos novamente 
o outro jogo premiado o qual será, certamente, 
publicado na revista de Agosto. 


O JOGO DO MÊS 


Foi premiado no mês de Julho o jogo «Estrada da 
Glória» criado, para «JOGOS SORTIDOS», por Diogo 
F. M. Lucas de 18 anos. Parabéns! 
Lembramos que, aos leitores dos programas 
premiados, oferecemos dois prémios: uma 
assinatura semestral dos «JOGOS SORTIDOS» e um 
volume encadernado da revista de banda desenhada 
«JORNAL DA B.D.» 
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ENVIE-NOS OS SEUS PROGRAMAS ORIGINAIS 
E GANHE PREMIOS 


Colabore connosco, enviando-nos o seu programa original, do seguinte modo: 


1. Nome, morada, idade e n.º de telefone. 
2. O programa de preferência em cassette, indicando o tipo e a capacidade do computador. 
3. Uma descrição geral do jogo com as instruções necessárias. 
4. Uma explicação detalhada da função das várias partes do programa. 


Para: JOGOS SORTIDOS - Rua Duque de Palmela, 37, 2.º-Dto. - 1200 LISBOA 


e." 


ESTRADA DA 
GLORIA 


Jogo original escrito por Diogo F. M. Lucas, de 18 anos, 
e cujo objectivo é o de apanhar 10 taças, espalhadas 
pelo écran, ao volante do seu Fórmula 1. Verá que não 
é tão fácil quanto parece, apanhar as 10 taças sem largar 
o volante do bólide evitando atropelar os comissários de 
pista ou esmagar-se contra os muros de protecção. Haverá 
ainda outros obstáculos que não são habituais nos grandes 
prémios. 

O jogo tem muitas fases e o número de carros é escolhido 
pelo jogador. 


TABULEIROS E VARIÁVEIS 


Linha 7: Envia para a linha 500, para ler os gráficos. 

Linha 11-17: Pergunta o n.º de carros que quer e define 
variáveis. 

Linha 20-25: Para definir a altura em que o carro começa 

a deixar fumo (que se tocar nele, explode 
de imediato) e também a quantidade de 
obstáculos. 

Linha 36-46: Limita o écran em toda a sua volta com 
uma parede. 

Linha 60-85: Faz a escolha dos gráficos que se vão 
seguir uns aos outros e espalha-os pelo 
écran. 

Linha 90-95: Espalha as taças pelo écran. 

Linhas seguintes (MOVIMENTO DO CARRO) 

Linha 97-135: Imprime o carro no écran e define variá- 

veis. 

Linha 150-185: Movimento e direcções do carro. 

Linha 190: A variável «n» serve para descobrir os aci- 
dentes. 

Linha 195-208: Serve para tirar o rasto e imprimir o 

fumo. 

Linha 215-220: Faz mudar de obstáculo. 

Linha 225: Quando se chega ao fim de uma fase, co- 
meça tudo de novo mas com mais obstá- 
culos. 

Linha 230: Tem relação com a linha 90. Serve para 
contar o n.º de carros. 

Linha 260: Se o (w) for igual ao n.º de carros por si 
escolhidos, envia para a 400. 

Linha 262: Faz um FLASH quando o carro choca. 

Linha 265: Imprime o n.º de carros que restam. 

Linha 280: Faz uma pequena pausa para lermos o n.º 
de carros. 

Linha 410: Imprime um aviso quando perdemos todos 
os carros. Faz uma pequena música, treme 
o BORDER e pergunta se quer outro jogo. 


GRÁFICOS 
Linha 500-530: Faz os gráficos. 
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Este programa permite-lhe desenhar letras em três dimen- 
sões (3-D) nas cores e nas dimensões que escolher. Foi 
escrito por John Hunton para o ZX Spectrum e pretende 


ser mais do que um simples passatempo, ajudando a 
construir frases com letragem tri-dimensional de fácil apli- 
cação em títulos de páginas ou cartazes. 


2 RANDOMIZE MEDIUM size letter 
3 BORDER 7: PAPER 7: INK GB: C mode." 
ES 17 IF INKEY$="1" THEN GO TO 3 
4 PRINT AT 10,12;"3D WORDS" Ba 
S PRINT AT 21,4; "PRESS SPACE 18 IF INKEY$="2" THEN GO TO 2 
TO CONTINUE” 2a 
é RANDOMIZE USR 1316 19 IF INKEY$="3" THEN GO TO 4 
8 POLE 23609,30 5 
9 BORDER 7: PAPER 7: INK B: C 20 IF INKEY$="4" THEN COPY : 
LS GO TO 18 
18 PRINT AT 8,18; INK 2; PAPER 21 IF INKEY$="5" THEN STOP 
6; "MAIN MENU" 22 IF INKEY$="6" THEN GO TO 2 
11 PRINT AT 2,0;"1.Change Size [a]'4 
of letter.” - 23 IF INKEY$="7" THEN 60 TO 6 
12 PRINT "2. Instructions.“ 2a 
13 PRINT “S.PRINT SD Words.” 24 GO TO 17 
14 PRINT "4.LPRINT Menyg. * 45 CLS 
1S PRINT “5S.NEW program.“ 52 PRINT * PAPER B: INK 75AT 
16 PRINT "6.LPRINT iínstruction 2,1;"Now please follow the promp 
Se”s PRINT “7.LOAD “"”* SCREENS tms" 
"z PRINT AT 18,0;“Frogram is in 64 PRINT AT 21,4; INK 7; PAFER 


ri ize 


) 
/ 


k 


a 


vin A 


AO 


2:“PRESS SPACE TO CONTINUE" 
65 RANDOMIZE USR 1316 


67 BORDER 7: PAPER 7: INK B: C 
LS 

780 CLS : FOR n=2 TO 10: BEEF . 
22,n: NEXT n 


82 INPUT “Pixels from top((tig8B 
) =B pixels)"sp 


90 INPUT “Letters (7 max) “sa 
$: IF LEN a$>7 OR LEN a$<1 THEN 
BEEP 1,-38: G0 TO 98 

91 INPUT “Colour (B-6)";ps$ 

92 IF p$="1" THEN INK 1 

93 IF p$="2" THEN INK 2 

94 IF p$="5" THEN INK 3 

95 IF p$="4" THEN INK 4 

96 IF p$="5" THEN INK 5 

97 IF p$="6"“ THEN INK 6 

SB IF p$="D" THEN INK QB 

99 IF p$="7" THEN INK 7: IF p 
$>"7" OR p$<"B" THEN GD TO 91 
1902 LET a=LEN a$: PRINT INK 7; 
AT 21,05a$%: BEEP 21,34 BEEP .1,2 
: BEEP «1,3% BERP 21,4% BEEP .l, 
Ss BEEP .1,6 " 
110 FOR €=B2 TO Bra-i: FOR n=B T 
O 7 


120 IF POINT (f,n)=0 THEN GOT 
D 160 

130 PLOT 444,n44+135-p: 
BD: DRAW D,4: DRAW -4,B: 
3: DRAW 3,0: DRAW D,Z: 
: DRAW B,-1: DRAW 2,8: 
a 


DRAW 4, 
DRAW B,— 
DRAW -2,0 
DRAW -2,- 


140 DRAW 5,5: 
-4: DRAW 4,0: 
4: DRAW -5,-5 


DRAW D,4: DRAW B, 
DRAW B,4: DRAW B,- 


150 DRAW 8,49: DRAW 5,5: DRAW -4 
«O: DRAW -S,-5 

1690 NEXT nm: NEXT + 

170 IF a$="3D WORD" THEN PAUSE 
50: GO TO 40 

180 INFUT “Write some more ”? ty 
/mn)"sws 


181 IF w$="nº 


THEN GO TO 240 


“ 


IF w$="y" THEN GO TO 185 


185 INFUT “Clear Screen º":ts 
-186 IF t$=“y“ OR t$="y”" THEN C 
LS : GO TO 88 

187 IF t$=“n" OR T$="N" THEN G 
O TO 88 

188 GO TO 185 
228 CLS 
2902 PRINT AT B,B; INK 2; PAPER 
6; "JOHN HUNTON mm SD WORK 
DS“ 

204 FRINT AT 2,80; “This Program 
allows you to * 

205 PRINT “generate 3D letters 
on your *“ 

2064 PRINT "Z.X.Spectrum.” 

228 PRINT 
209 PRINT “First you must selec 
t the size * 

212 PRINT "that you want your 1 
etters to be” : 

“211 PRINT "then type your lette 


rs in and * 

212 FRINT "the computer will do 
the rest* 

213 PRINT 

215 PRINT ; INK 2Z;"Size 1 = Sama 
11 20 pixels high.” 

216 PRINT ; IN 2;"Size 2 = Med 
1um SD pixels high.” 

217 PRINT INE 2;"Size 3 = larg 
e 40 pixels high.” 


Z18 PRINT 

219 PRINT INK 1;"“Size 
aracters per line.” 

2202 PRINT INK 1;"Size 
aracters per line.” 

221 PRINT INK is"Size 
aracters per line.” 
223 PRINT AT 19,8; 
URN Z=COPYy" 

Z24 IF INKEy$="r" 
THEN RUN 18 

225 IF INKEyY$="z" OR INKEy$="2" 
THEN PRINT AT 19,0; "(32esp)*: 


1 = 9 ch 
2 =7 ch 
Ss = 5 ch 
INK 4; "R=RET 


OR INKEY$="R" 


COPY : GO TO 200 

226 GO TO 224 

240 BORDER 7: PAPER 7: . INK 7: 

250 INPUT “Copy to Z.X.Printer? 
"ss 

251 IF s$="y”" OR s$="Y" THEN 6 
O TO 268 

252 IF s$=“n" THEN GO TO 270 
269 INPUT “How Many Copies 7"“j;a 
$ 

261 IF af="1" THEN COPY : GO T 
D 180 

-6Z IF a$="2" THEN COPY : COPY 
263 IF as="5" THEN COPY : COPY 

s COPY 

-64 IF a$="4" THEN CDEY : COPY 

3: COPY : COPY 

265 GO TO 276 

270 INFUT “Save SCREENS 7";as 
71 IF a$="y” THEN GO TO 273 

72 IF a$="nº THEN GO TO 275 
27X SAVE “ID SCREENS 

275 INPUT “Return to Menu 7" ws 
276 IF w$="y* OR m$="yY" THEN G 
O TO 9 

277 IF w$="n" OR ws="N" THEN G 
O TO 180 

“78 GO TO 275 

300 BORDER 7: FAPER 7: INK BG: C 
LS 

3801 PRINT AT 8,8; INK 2; PAPER 


6; “JOHN HUNTON - 
DS" 

3822 PRINT AT 2,8; "With this pro 
gram you can ” 


SD WOR 


303 PRINT "have three different 
sizes of“ 

304 PRINT "letters." 

305 PRINT ú 

306 PRINT “(Refer to Instructio 
ns.)" 

307 FRINT 

308 PRINT INK Z;"Enter Size 0f 


Characters Require* 


389 PRINT 

310 PRINT INK 4;"1.Small” 

311 PRINT INK 45"2.Medium" 

312 FRINT INK 4;º3.lLarge“ 

313 INPUT “Size 1,2 OR 3. 7"59g$ 
>14 IF q8="1º THEN CLS : 60 TO 
428 
315 IF q$="2º THEN CLS : GO TO 
as 
S1é IF q$="3º THEN CLS : 60 TO 
528 
317 GO TO 313 
400 INPUT “Pixels from top ((tig 
B)=B pixels)“;p 
402 INFUT “Letters (9 max) "sa 
$: IF LEN a$>9 OR LEN as<1i THEN 
BEEP 1,-3I98: GO TO 402 
424 INPUT “Colour (B-6)";ps$ 
486 IF p$=“1" THEN INK 1 

407 IF p$="2" THEN INK 2 

408 IF p$="3" THEN INK 3 

409 IF p$="4" THEN INK 4 

4180 IF p$=“5" THEN INK 5 

411 IF p$="6" THEN INK 6 

412 IF p$="8" THEN INK q 

413 IF p$="7º THEN INK 7: IF p 
$>"7" OR p$<"B" THEN GO TO 484 

420 LET a=LEN as: PRINT INK 7; 
AT 21,05as: BEEP .1,1: BEEP .1,2 
s BEEP .1,32º DEEP .1,44 BEEP .1, 
Ss BEEP .1,6 

421 FOR €=0 TO 9ea-i: FOR n=B 7 
o 7 

422 IF POINT (€,n)=B THEN GO 7 
r 4ZB 

424 PLOT 443.5,n+e4+140-p: DRAW 
4,0: DRAW 0,4: DRAW -4,0: DRAb Z 
s—>: DRAW 5,B: DRAW B,2: DRAW -2 
+10: DRAW G,-1: DRKAM 2,9: DRAW -2 

2 
, 

426 DRAW 5,5: DRM DB,4: DRAU B, 
—4: DRAW 4,0: DREAM B,4: DRAW B,- 
4: DRAW -S,-S 

428 DRAW 0,49: DRAdi 5,5: DRAW -4 
BD: DRAW -5,-S 

430 NEXT n: NEXT 4 

4352 INPUT “Write Soee More ”? (ty 
/n) “sws * 

433 IF w$="n”" THEN GO TO 445 

434 IF w$="y” THEN GO TO 436 

4356 INPUT “Clear screen "'"s;ts 

437 IF t$f=*y*” OR ts="Y“ THEN C 
LS : GO TO 408 

438 IF t$="n"” OR ts="N"º THEN G 
O TO 400 

439 GO TO 436 

448 CLS 

445 INPUT “Copy to Z.X.FPrinter” 
“5s$ 

446 IF s$="y" OR s$="y"” THEN G 
O TO 448 

447 IF s$="n" THEN GO TO 460 

448 INPUT “How Many Copies ?"s;a 
$ 

449 IF a$="1" THEN COPY : GOT 
o 188 

450 IF a$="2" THEN COPY : COPY 

452 IF a$="3" THEN COPY : COPY 

s COPY 

4553 IF a$="4" THEN COPY : COPY 

s COPY s COPY 

460 INPUT “Save SCREENS “7"s;sas 

461 IF a$="y" THEN GO TO 465 

462 IF a$="n" THEN GO TO 470 

465 SAVE “ID“SCREENS 

4708 INPUT “Return to Menu ? "gw 
5 

471 IF w$="y" OR w$="Y” THEN G 
O TO 9 

472 IF w$="n" OR w$="N" THEN 6 
O TO 432 , 

473 G0 TO 470 

500 INPUT “Pixels from top ((tig 
8)=B8 pixels)"sp 

502 INPUT "Letters (6 max) “sa 


$: IF LEN a$>6 OR LEN a$<1 THEN 


BEEP 1,38: 


GO TO 980 


5205 INPUT “Colour (B-6)";p$ 
5064 IF p$="1" THEN 


INK 1 


597 IF p$="2" THEN INK 2 

508 IF p$="3" THEN INK 3 

509 IF p$="4" THEN INK 4 

510 IF p$="5S" THEN INK 5 

311 IF p$="6" THEN INK 6 

512 IF p$="8" THEN INK QB 

513 IF p$="7" THEN INK 7: IF p 
$>"7" OR p$s<"B”" THEN GO TO 5sgs 
315 LET a=LEN a$: PRINT INK 73 


AT 21,0;a$: BEEP .1,1: BEEP .1,2 
: BEEP .1,3: BEEP .1,4: BEEP .1, 
S: BEEP .1,6 

516 FOR f=0 TO Bxa-i: FOR na T 
BZ 

S17 IF POINT (f,n)=8 THEN GOT 
D 522 

518 PLOT €*5,n+5+140-p: DRAW 4, 
BD: DRAW 8,4: DRAW -4,8: DRAW D,- 


3: DRAW 53,0: DRAW B,2: DRAW -2,8 
: DRAW B,-1: DRAW 2,0: DRAW -2,- 
2 


S20 DRAW 5,5: DRAW 3,4: DRAW QB, 
-4: DRAW 4,8: DRAW 3,4: DRAW B,- 
4: DRAW -S,-S 

S21 DRAW B,4: DRAW 5,5: DRAW -4 
+0: DRAW -S,-S 

S22 NEXT n: NEXT 4 

S23 IF a$="3D WORD" THEN PAUSE 
SB: GO TO 48 


525 INPUT "Write some more ? (y 


(n)";ws 

526 IF w$="n" THEN GO TO 535 
527 IF w$="y” THEN GO TO 508 
530 INPUT “Clear screen (y/n)”"; 
ts 

531 IF t$="y* OR t$s="Y”" THEN C 
LS : GO TO 5080 

532 IF t$="nº OR t$s="Nº THEN G 
O TO 500 

ass 80 TO 3525 

535 INPUT “Copy to Z.X. Printer 
“ess 

536 IF s$=*y“ OR s$="y" THEN G 
O TO 540 

537 IF s$=“n” OR s$="N" THEN 6 
O TO 5580 

5358 GO TO 535 

540 INPUT “How Many Copies ? "; 
as 

941 IF a$="1" THEN COPY : GOT 
O 550 

542 IF a$="2" THEN COPY : COPY 
543 IF a$="53" THEN COPY : COPY 
s COPY 

544 IF a$=“4" THEN COPY : COPY 
$ CORY t COPY 

545 G0 TO 540 

550 INPUT “Save SCREENS 7? ";as 
591 IF a$=*y” THEN SAVE “3SD"SC 
REEN$S : GO TO 568 

552 IF a$="n”" THEN GO TO 568 
553 GO TO 556 

560 INPUT "Return to Menu ? "“;a 
$ 

961 IF af$=“y“ OR ag="y* THEN G 
O: TO 9 

562 IF a$=“n” OR a$="“n"º" THEN 6 
O TO 525 

563 GO TO 568 

600 CLS : PRINT AT 8,3; INK 1; 


FAFER 5; “SCORPIC SOFTWARE ID wWOR 
DS" 

681 PRINT AT 3,0; INK 1; FLASH 
15 "LOAD ""º"*“* SCREENS MODE” 

602 FRINT AY 5,0;"Change to siz 
e of print required" 

603 PRINT “then LOAD the SCREEN 
$ you want” 

604 PRINT “to work on.“ 

605 FRINT AT 12,0; INK 2;"R=Ret 
urmn to menu J=LOAD SCREENS" 

604 IF INKFEY$S="“r” OR INKEYS="R" 
THEN GO TO 9 

607 IF INKEY$="J” OR INKEY$S="53" 
THEN CLS : LOAD “"SCREENS : BE 
EP .1,0: GO TO BQ 

608 GO TO 686 


700 SAVE “ZD WORDS" LINE 1 
701 VERIFY “SD WORDS" 
702 RUN 


e 


4 W 
ATA 7 as 
l Nata “RUA u 
| CÉpabicds 
“o 


O GRANDE 


e A = = 


O calor começa a apertar no local onde o bombeiro se 


je 
encontra para tentar dominar o braseiro. O «Grande Fogo» 
foi escrito por Martin Kirkwood para qualquer dos Spec- 
É trums. 
Freddy, o bombeiro, terá que trepar para as sucessivas 
plataformas, evitando os fragmentos que ameaçam cair a 


qualquer momento, de maneira a atingir o foco do incêndio 
com o jacto de água. Depois terá que correr pelo tapete 
transportador, escapando à aranha, para apagar o fogo 
no rés-do-chão. 


— ” “ Pr o “ 


12 LET hi =Q 185 IF SCREENS (yl,x1)<>"(sp)” 
15 LET sc=9: LET 1i=3: LET le= THEN LET xi=x2: LET yi=y2 
1 110 IF SCREENS (yi+1,x1)="(sp)" 
28 GO SUB 5SB8: REM Intro THEN LET yi=y1+j: LET j=B: GO 
30 GO SUB 188€: REM Initialise TO 125 
À am G0 SUB 28980: REM Screen 115 IF x1i<B8 THEN LET x1=B8: IF 
50 PRINT AT y2,x2;" (sp) “sAT yZ x1>531 THEN LET x1=51 
-1,x235"(sp)* 120 LET j=1 
Ss IF INKEYy$="s" THEN GO TO 3 125 PRINT AT 21,6; "Score: ";sc 
2 132 IF b<>8 THEN 60 TO 3500: R 
68 PRINT AT y1l,x1; INK 3;a$:;AT EM Move ball (:) 
DT is LR Ma té 135 IF RNDs25<=1 THEN GO SUB 3 
70 LET x2=x1: LET y2=y1 B22 
| 71 PRINT AT SZ,2B:;"(2*sp)“;AT 137 IF xi=a AND yi=b THEN 60 T 
S1,20; "IL O 4000: REM Hit by ball (E) 
| 72 LET s2=s1: LET si=si+d: IF 148 IF x1=5 AND yl=4 THEN GO T 
: s1>3 OR si<1i THEN LET d=-d O 5000: REM Stepped on conveyer 
BB LET x1i=x1+(INKEY$="x")- (INK belt 
Evs="2") 142 IF y2>17 AND x2>27 THEN GO 
B6 IF INKEY$="(sp)“ AND j=1 TH TO 4200: REM Fell in fire 
EN GO SUE 158: REM Jump 145 GO TO 58 
90 IF x1>xZ2 THEN LET b$="c": 149 REM Jump up through hole 
LET as="L.*: LET dir=1 152 IF SCREENS (y1-2,x1)<>" (sp) 
180 IF x1<xZ THEN LET as="E": * THEN GO TO 218 


LET b$="g": LET dir=-1 155 LET x2=x1: LET v2=yi 


ANSA qhR 
[| "ou 


OGO 


156 FOR €=1 TO 3 

168 PRINT AT y2,x2:"(sp)*“ 

170 PRINT AT yil,x1is INK T;as;AT 
yi-1,x1i: IN 4;bS$S 

180 LET y2=yl: LET yi=yi-i 

185 BEEF .B1,f*18 

198 NEXT € 

195 LET sc=sc+1 

200 LET xi=xi+*dir 

285 IF x1<8 THEN LET x1=D: IF 
x1>31 THEN LET x1=31 

218 RETURN 
. 499 REM Intro 

sao PAPER B: BORDER B: INK 7: £ 
LS 

S18 PRINT "(40 sp, «sSp,J4| ,2*s 


Pt, Spy sSESPats Z*sp ,2*1.,2*Sp, 
t ,2%5p,24+ ,44Sp, |. ,SP,! ,2%SPp,L.,SP 
st. 4xsp 28, sp, 2." SP 4,1 Z*sp,t.ss 
p,2tt ,Sp,2%t,, 44Sp, +. ,SpsStt ,2*sp, 
Tt ,24Sp, ts SpytisSPstsSpsSHLSSPyt. 
SPp,5tt. ,Z*Sp, |. ySps! s2*sp, Ls SPsl. 
445p,t.,)SéSp, Lt. ,Sp,! ,2*Sps! ,SP,!.,2 
“sp,2Ht ,485p | ,SPp,L s29Sp, LsSpçd* 
Lis SPst.,3ESp,L Spy! ,2*Sp,LsSPyL.s2 
“sp ,2*4+ ,2745p, |. ,2*sp A cl lim 

520 PRINT “º(R,SBAT,S)T ; 
S30 PRINT “*"(<sp)Py (32esp)M.KIR 
KWOOD* 

550 PRINT “"(2esp) CONTROLS ARE- 
(33esp)Z.... «co o«LEFT(IÍBESp)X... 
e» «RIGHT(174sp) *' SPACE '.... JUMP 
568 PRINT *“**'“"(<Jasp)PRESS ANY 
KEY TO CONTINUES 

565 LET e=8 

570 RESTORE 6989: FOR €=1 TO 353 

: READ p,d: BEEP d/8B2, (p-53)/4 

SB0 IF INKEY$S<>"" THEN LET €=3 
3: LET e=1 

590 NEXT + 

595 PAUSE 18 

6DB2B IF e=1 THEN GO TO 628 

610 60 TO 578 

620 CLS 

6392 PRINT TAB 12;"FIREMAN* 

642 PRINT '““(<245sp)You are Fredd 
ie the firesan.Itis your job to 
put out the fire at the bottom o 


MAP 


f the screen. * 

652 PRINT '““(225p)You must get 
to the top of thescreen to colle 
ct the hosepipe. Watch out for t 
he spider above(2+*sp)the conveyo 
r belts* 

662 PRINT '““(Zesp)Move Freddie 


using... (25esp)Z........««Left (18 
“sp)X........Right (18xsp) 'Space. 
« «Jump 

670 PRINT AT 21,6;"Fress Any Ke 
y To Start" 

68BB PAUSE B 

690 RETURN 

999 REM Initialise 

1200 KESTORE : FOR 4=USKR “a” TO 
USR “u“+7 

1210 READ a: POKE f,a 

1020 NEXT + 

1038 DATA 692,126,126,255,66,226, 
20,116,28,42,107,235,106,6B,200, 
Dna 94 

1240 DATA 62,126,126,255,66,71,4 
2,46,56,84,214,215,86,60,19,63 
IBIO DATA DB,64,127,70,71,71,79,6 
0,0,0,0,127,127,255,255,255,0,28 
,18,156,159,252,228,192 

1260 DATA 127,127,97,76,15B,15B, 
12,0,255,255,254,252,253,253,0,0 
1255 ,253,28,206,236,2732,192,0 
12978 DATA 2,249,249,249,0,159,1 
59,159 

1275 DATA 228,186,121,229,20,18B, 
12,8 

1976 DATA B,B,B,B,BIN 1120000B,3 
2,16,16,16,16,16,16,16,16,16,16 
1277 DATA 16,16,8,7,0,0,0,0,0,0, 


2,255,0,0,0,0,56,56,56,56,56,56, 

36 , 16 

1978 DATA 63,66,153,165,165,153, 

66 ,63,252,66,153,165,165,153,66, 

252 ,255,80,0,8,0,0,0,255 

1279 DATA 39,93,150,167,40,72,80 
16 

1082 LET z=OB: LET x1=1: LET yli=1 

9: LET x2=x1: LET y2=y1 

IBD9D LET b=B: LET 5=1: LET fuel= 

2: LET a$=";.": LET b$=".": LET d 
1ir=1 

11920 FOKE 23562,1: LET si=i: LET 
S2=si: LET d=le/10 

1110 RETURN 

2200 INK 2: FAPER QB: BORDER OB: CL 

LS 

2225 PRINT AT 5,0: FAPER 6:" (54%; 
»"a INK 5; PAPER D;AT S,S;" (21 

“1, 0)"; PAPER 63 INK 2;%4.* 

2018 FOR €=8 TO 17 S5EF 3: FOR g 

=2 TO 28 

2020 FRINT AT f,g: FAPER 6;" 

2230 NEXT q = 

2040 NEXT 4 

2047 PRINT AT 2,08: PAFER 6" (Zm 

qa 

2050 PRINT AT BM; "LE LAT 1,0:” 
E De 

2255 LET z=0 

2062 FOR f=8 TO 17 STEF 3 

2064 LET zi=z 

20265 LET z=2+INT (RND+s25) 

2066 IF zi=z DR z1i-z=1 OR z1i-z=- 
1 THEN GO TO 2065 

2070 FRINT AT f,z:"(2esp)” 

2280 NEXT 4 


2085 PRINT AT 5,B;"(Zxsp)” 
2298 FOK f=255 TO 237 STEF -1 
2120 PLOT +,B 

2120 DRAW INF 2Z:0,RND+*24 

2130 NEXT f 

2135 FOR €=237 TO 255: PLOT INK 
6; OVER 1:+f,RND+*24: FLOT OVER 
15 f ,RND*24: NEXT + 

2140 PRINT PAFER 6:;AT 28,0: "(25 
no) “GAT 21,05"(2981.)* 

2145 FOR f=1 TO li: PRINT AT 2 ls 


fts º=*: MEXT.f: PRINT AT 21,20;“H 


ds Sei 
2200 RETURN 
Z00B LET a=B: LET aZ=a: LET b-14 
— (INT (RNDx4)*7): LET bZ=b 

3210 PRINT AT b,aZ:"(sp)":AT b,a 
2020 RETURN 

3500 FRINT AT b2,a2;" (sp)"“;AT b, 
as“; "s LET aZeas LET b2=b: LET & 
=a+1 

ZzS0Ss IF SCREENS (b+i,a)l="(sp)“ T 
HEN LET b=b+1 

ZS10 IF a=28 THEN FRINT AT bZ,a 
2:"(sp)": LET b=D: GO TO 137 
=515 IF SCREEN$ (b:1,a)="(sp)" T 
HEN LET b=b+1 

3520 G0 TO 137 

4200 BEEF 1,4: BEEF 1,-4 

4210 LET 11=11-1: IF 11=B THEN 
GO TO 4030 

4220 GO TO TO 

4030 FRINT AT 10,10; FLASH 1: IN 
E S:; FAPER 2:"Game Over" 

4275 RESTORE 4070 

a240 FOR f4=1 TO 11 

42050 READ p,d: BEEF d/40, (p-55)/ 
4 

aD60 NEXT + 

4270 DATA 41,30,41,20,41,120,41,53 
2,57,20,49,10,49,20,41,10,41,20, 
17,20,41,40 

49502 IF sc>hi THEN LET hi=sc: P 
RINT AT 15,9:ºN E W H II": FOR 
4=1 TO 10: FOR g=1 TO 10: BEEF.. 
BD1i,g: NEXT g: NEXT +f 

4090 FOR €=1 TO 200: NEXT + 

4108 GO TO 15 

Ss200 REM hose 

S010 PRINT AT B,3:"INVGAT 1,Sa"a 
çaT 2,8 PAT ESP AICSAT AS FC 
9013 PRINT AT 4,x2;"ENCGAT 2,5:"4 
SPpI“sAT 3,43" (sp)” 

ID2D LET x2=x1: LET x1==1+1 

9850 FOR 4=1 TO 23 

9075 IF x2=20 AND sZ2>2 THEN GO 
TO 4980 

5040 FRINT AT A NL OEOSAT So X238 
(sp)“sAT 4,xlisassAT Z,x1isbs 

5845 PRINT AT 52,20:MQesgiar s1,2 
Bj"! “: LET s2=si: LET si=si+d: 
IF s1>23 OR si<1 THEN LET d=-d 
9B50 LET x2=x1: LET x1=x1+1 

5055 FOR g=B2 TO 5: NEXT q 

9060 NEXT 4 

5870 PRINT AT yl,x1i;"rresAT yi+1 
xI+1; "as e 

5875 IN” Ss 

5992 FOR f1=6 TO 20: PRINT AT 4,3 
Bi “iitz NEXT 4 

2102 FOR 4=0 TO 50: NEXT 4 

5130 FOR f=6 TO 28: PRINT AT 4,3 
D:"“(sp)“z NEXT 4 

5135 INK QB 

5140 FOR 4=237 TO 255 STEP 2 
5150 FLOT 4,0: DRAW B,24 

5168 FOR g=B TO 1D: NEXT qg 

35170 NEXT 4 

5180 LEY le=le+1: LET sc=sc+(le+ 
100): FOR 4=1 TO 3: FOR g=2 TO 1 
B: BEEF .B2,9: NEXT g: NEXT + 
3222 GO TO ZQ0 

6BBB DATA 33,10,33,15,491,5,33,18 
1953,12,49,10,41,10,33,38 

6018 DATA 25,20,25,10,21,280,21,1 
20,13,10,5,10,13,10,21,38,21,20 
6022 DATA 33,10,33,15,41,5.73,10 
,193,180,49,10,41,10,33,38 

6B3B DATA 25,20,25,18,721,28,71,1 
2,13,10,5,10,17,10,5,40 


2 


e EA ão. 


+ 
1 


Es a” “é q 


= 4 


EEE 


de 
o 
u 
E 
“e, 


blinhada. 


gem máquina. 


18 FOR €=65368 TO 65535: READ 
as POKE f,as NEXT + 

28 DATA 24,24,255,255,189,189, 
255,255 

38 DATA 0,248,216,255,223,253, 
223 ,255 

48 DATA 0,0,0,0,0,0,85,255 

58 DATA 0,8,3,15,63,255,255,25 
5 

6B DATA 68,68,255,255,85,255,8 
ER o 

70 DATA 0,0,3,15,13,63,53,255 

88 DATA 0,255,129,255,129,255, 
129,255 

90 DATA 255,255,165,253,165,25 
3, 1685,235 


A DEFESA DA 
CIDADE 


Neste jogo escrito para o seu SPECTRUM 48K, 
você tem que defender, destruindo. Os invasores 
do planeta aparecem em ondas que terá que com- 
bater imediatamente. Depois, há a batalha no es- 
paço e tudo se resolverá, com certeza! 

Os gráficos definidos estão representados na 
listagem em caracteres sublinhados. São introdu- 
zidos no modo gráfico, com a letra que está su- 


Este programa utiliza muitas rotinas em lingua- 


Deve-se ter um cuidado especial ao introduzir-se 
as instruções «DATA», no início da listagem. 


29,213,197,205,181 ,3,19$%,209,225 
,43,43,16,243 

400 DATA 17,129,195,58,88,195,1 
11,58,81,195,103,6,8,26,119,19,3 
6,16,250,58,80,195,68,111,58,81, 
195,103,6,8,26,119,19,36,16,258 
SSB DATA 33,1,72,6,128,197,6,31 
1126,43,119,35,35,16,249,43,54,8 
,35,35,193,16,238 

570 DATA 58,88,195,68,111,58,81 
1195,103,126,254,0,480,6,62,255,5 
2,96,234,201,24,3,0,8,8 

S71 DATA 33,0,72,6,8,126,254,8, 
32,9,125,46,32,133,111,16,244,24 


,23,58,94,193,61,50,84,195,254,8 
132,6,62,25353,90,96,234,201,198,4 


655 DATA 58,83,195,61,200,58,83 
,195,195,64,156 

66B DATA 33,8,64,6,192,197,6,32 
,2053,62,35,16,2531,193,16,245,281 

700 LET H$="-——“s LET H=8 

715 POKE 65528,192: POKE 5209908, 
O: POKE 50081,0: POKE 490183,24: 
POKE 49184,19: POKE 40263,201: P 
OKE 60000,8U: BORDER B: PAPER Br: 
INK 6: CLS 

728 POKE 40037,2: POKE 40244,12 
8 

738 PRINT AT 2,105 BRIGHT 13 IN 
K 45“"CITY DEFENCE" 

770 PRINT AT 4,8; INK Ss "Up.... 
«c«LCqI"sAT 4,283 INK 45"Down.... 
«Cal'sAT 5,0; INK S;"Fire..... Lp 
JºsAT 3,20; INK 73"Saart. co. Lo)” 

780 PRINT AT 1,0; INK B;“CITY D 
EFENCE--by-—R. EVA 1984-—-* 

785 FOR €=98 TO 253. PLOT INK QB; 
INT (<RND*256), INT “RND&7)+168: N 
EXT f 

786 PRINT INK 7; BRIGHT 1; '"RS 

Press any key to begin Fur 

798 RANDOMIZE USAR 400090 
Bog IF INKEY$="" THEN GO TO 79 
g 
8981 FOR F=8 TO 121: RANDOMIZE US 
R 3583: RANDOMIZE USR 405309: NEX 
TIE 
802 PuxE 491903,33: POKE 40194,2 
44: PRINT AT 21,0; INK 6; BRIGHT 

15“ I*.STUCTIONS ? (y/n)* 

BO4 LET aS=INKEYS: IF a$="" THE 
N GO TO BMB4 
B86 IF a$="y” OR a$=*y" THEN 6 
O SUB 25080: G0 TO 818 
B88 IF a$<>"n” AND as<>"Nº THEN 

G0 TO 884 

818 POKE 40263,581 PRINT AT 21, 
21; INK 45"NO": FOR F=1 TO 3: RA 
NDOMIZE USR 49599: RANDOMIZE USR 
3583: NEXT F 
B3B PRINT AT 21,8; INK 7; BRIBH 
T 15º AN sd” 

B48 LET AS=INKEYS$S: IF A$="" THE 


E 108 DATA 16,16,16,16,16,19,255, 7,215,62,8,215 N GO TO 848 

É 255 573 DATA 285,191,2,254,255,282, 8sS8 IF A$="1" THEN PRINT AT 21 

+, 118 DATA 0,0,0,7,31,149,255,255 64,156 21; INK 4; “LEVEL: 1": LET W=5: L 

E" 1280 DATA 2531,255,165,231,165,23 574 DATA 58,85,195,254,0,48,56 ET X=1: LET Y=2: LET Z=7: POKE 6 

iz 1,165,255 S75 DATA 285,191,2,254,79,32,49 5528,9: 60 TO 875 

já o a ida E a B68 IF A$="2" THEN PRINT AT 21 

H . 6,128,197,6,32,126,254,170,40,2, 1213 INK 4; "LEVEL:2": LET W=B: L 
ra DATA 8,24,24,68,255,219,255 S4,255,35,16,246,193,16,248,33,0 ET X=0: LET v=8: LET Z=B: POKE 6 

E ' 172,6, 128,197,6,32,126,254,170,4 SS28.,1: 60 TO B7s 

E oo DATA 8,19,19,18,298,209,181 0,2,54,0,35,16,246,193,16,240 878 GO TO 848 

Er , S98 DATA 205,191,2,254,65,32,38 875 FOR F=1 TO 4: RANDOMIZE USR 

E Riso Dara 8,224,248,168,248,168, ,58,81,195,254,80,40,20,58,88,19 485809: RANDOMIZE USR 3583: NEXT 

4% , 5,254,224,32,13,62,0,58,890,195,6 F: PRINT INK 73 BRIGHT 1;AT 28 

a 170 DATA G,0,48,48,38,62,62,255 2,80,50,81,195,195,64,1564,58,D8, g “P=PRACTICE oOTH — ( * E 

mm 188 DATA 0,8,8,11€,84,126,76,78 195,198,32,50,88,195,195,64,156 "asi OTHER KEY“ tado a 

a 198 DATA 254,97,255,255,127,121 » DATA 208 101.2 088 Q1.3 


,1412,2535 

200 DATA 224,248,156,135,254,24 
2,0,128 

210 ATA D,7,30,252,31,7,0,3 
220 TA 192,240,62,126,252,188 
14,455 

SOB CLEAR 39999: FOR f=40008 TO 
40737: READ a: POKE f,a: NEXT € 
305 DATA 17,224,255,58,88,195,1 
11,58,81,195,103,6,8,26,119,19,3 
6,16,250,58,80,195,60,1141,58,81, 
193,103,6,8,26,119,19,36,16,258 
S1iB DATA 6,2,197,22,64,33,0,8,1 
22,50,107,156,14,20,203,38,48,2, 
14,0,35,6,31,203,38,48,3,43,52,3 
5,535,16,246,43,121,254,10,48,1,5 
2,122,690,97,122,254,72,32,213,62 
,.352,580,106,156,193,16,201,62,8,5 
B,106,156 

320 DATA 33,49,64,17,31,880,6,8, 
126,254,1280,56,15,197,62,1790,6,8 
(18,20,16,232,6,8,21,16,253,193, 
36,123,30,32,131,95,16,228 

338 DATA 33,17,64,17,38,72,6,8, 
126,254,127,56,29.197,229,33,248 
,253,6,8,126,18.20,35,16,258,6,8 
,21,16,253,28,6,8,126,18,20,35,1 
5, 200,2285,193;,36,123,30,32,131,9 
5,16,213 

350 DATA 33,244,1,*:7,1,9,5,19,2 


688 DATA 205,191,2,254,81,32,4%6 
,58,81,195,254,72,32,19,58,88,19 
5, 254,0,202,64,156,58,88,195,222 
132,50,80,195,195,64,156,58,98,1 
95,254,0,32,241,62,224,50,88,195 
162,72,50,81,195,195,64,156 

418 DATA 285,191,2,254,80,48,34 
,195,64,156 

6280 DATA 17,1,0,33,64,156,6,75, 
77 ,126,237,121,38,0,111,229,213, 
197,205,181,3,193,209,225,38,136 
,105,44,16,234,201 

625 DATA 33,8,8,17,1,8,6,118,22 
9,213,197,205,181,3,193,209,225, 
35,16,244 

438 DATA 58,88,195,69,68,111,58 
,81,195,68,68,640,103,6,38,126,25 
4,0,32,37,54,85,35,16,246,1,8,15 
,11,120,254,8,32,258,58,88,195,6 
D,60,111,58,81,195,692,68,60,1853, 
6,380,54,0,35,16,251,195,64,156 
648 DATA 295,61,158,58,89,195,6 
8,68,111,58,81,195,68,60,60,183, 
6,38,126,254,85,32,5,54,8,35,16, 
246,58,81,195,254,80,202,64,156 

658 DATA 37,37,37,6,8,54,8,36,1 
6,251,6,8,37,16,253,44,6,8,54,8, 
36,16,251,58,80,195,87,14,0,33,1 
3,64,6,8,121,186,40,7,14,32,129, 
79,36,16,245,126,254,0,32,3,44,2 
4,243,203,38,48,252 


877 IF INKEY$S<>"" THEN GO TO B&B 
77 

B88 IF INKEY$="" THEN GO TO 88 
ae 

898 IF INKEY$="1" THEN PIKE 65 
528,0: POKE 65528,0: PRINT AT 21 
+213 INK 4; “PRACTICE”: GO TO 958 
908 PRINT AT 21,213 INK 4; BRIG 
HT 1; “REAL” 

958 FOR F=1 TO 4: RANDOMIZE USR 
405809: RANDOMIZE USR 3583: NEXT 
F: PRINT SFB; INK S; BRIGHT isTa 
B 5:" FPRESS 'S' TO BEGIN dE 


960 IF INKEY$<>"" THEN SO TO 9? 
58 

970 IF INKEY$S<>"S”" THEN 
978 

988 FOR F=B TO 23: RANDOMIZE US 
R 40509: RANDOMIZE USR 35382: NEX 
Tie 

1000 LET J=B: LET S0O=8 

1005 LET L=3: POKE 50005,53: LET 
V=28: POKE 48198,19 

1008 POKE 23658,255: POKE 58005, 
V+1s IF J<>1i AND PEEK 65529<>8 T 
HEN PRINT AT 3,23; INK 4; "SCREE 
N “s FLASH 1; BRIGHT 1;V/4-4: GO 
TO 1028 

1989 IF PEEK 65528<>8 THEN PRIN 
T AT 3,22; FLASH 15 "HYPERSPACE”: 


50 TO 


f 


BO TO 1028 

1910 PRINT AT 3,24; FLASH 15 "PRA 
CTISE“ 

1028 PLOT 8,159: DRAW 255,8: PLO 
T 0,158: DRAW 255,0: PLOT 0,114: 
DRAW 255,0: PLOT 0,115: DRAW 25 
5,0: PLOT B,1ló: DRAW 255,8 

1830 INK W: IF J=8 THEN FOR 4=8 
TO 31: PRINT AT 1,€;CHRS. (INT « 

RNDw146)+144): NEXT 4 

"19480 FOR 4=0 TO V: LET A-INT (RN 
D*256): LET B=INT (RND*256) 

1042 LET A=INT (RNDs256): LET B= 
INT (RND48)+168 

1045 IF POINT (<A,B)=1 OR POINT « 

A,B-1)=1 THEN GO TO 1842 

1058 PLOT A,B: NEXT F: INK & 
1060 FOR 4=8 TO 1: PRINT AT 4,8; 


INK W; PAPER X; BRIGHT 13 OVER 
15" (32esp)"s;AT 4,13; PAPER Y; IN 
K Z;"(445p)"“: NEXT f 
1070 PRINT AT 6,0; INK 75 BRIGHT 

1;5"Score "“;SO 
12890 FOR F=8 TO 15: PRINT AT F,2 
3 INK INT (<RNDr6)+23 PAPER B;"(3 
Besp)"s: NEXT F 
1890 PRINT AT 6,12; INK 3Fy"Hi-sc 
ore “; INK 45H; INK 55" by "; IN 
K Bs PAPER 3;H$ 
1:00 20KE 50004 ,4: POKE 5SB008,94 
: POKE 50001,72: PRINT AT 3,B;“( 
9esp)": PRINT AT 11,0;"(5Sesp)"s: 
PRINT AT 3,0; INK 2; BRIGHT 1$ºR 
5 E5 RS "(C TO Le3)s PRINT AT SIS, 
1; INK 7; BRIGHT 1; "PASS-S";CHRS 

By: LET mc=USR 40000: IF PEEK 4 
2000< >255 THEN 6G0 TO 2800 
1110 POKE 60000,0: POKE 40723,72 
: POKE 40725,128: FOR f=0 TO 7: 
LET MC=USR 40509: LET MC=USR 497 
21: NEXT Fs POKE 490723,64: POKE 
40725,192 
1115 PAUSE 68 
1120 LET L=l-1is 
TO 1108 
1130: PRINT AT 18,95 INK 5; BRIGH 
T 15"--GAME OVER-—-"; INK 4; PAPE 
R 1;"""“(Jesp)Press any key to r 
e-start (4esp)* 

1148 IF INKEY$<>"" THEN GO TO 1 
148 

1158 IF INKEY$="“ THEN GO TO 11 
58 

1168 IF SO<H THEN GO TO 1198 
1170 POKE 48263,58: INPUT “Initi 
ais (max 3 chrharacters) "; LINE N 
$ 


IF L>0 THEN GO 


pa 


11898 IF LEM M$>3 THEN LET N$=N$ 
( TO 3) 

1190 LET J=8: POKE 49244,128: PO 

KE 40037,2: 50 TO 715 

2000 FOR F=8 TO &: LET MC=USR 48 

7213 LET MC=+USR 405809: NEXT F: C 

LS : LET V=W+4: LET S=PEEK 498198 
3: LET S=S-2 

2005 IF IMKEYS="X" THEN GO TO 7 
15 

2018 IF S<=8 AND J=1 THEN POKE 

40183,24: POXE 498104,19: LET S=1 

2020 IF V>=6l THEN LET V=B; LET 
J=1i:s POKE <808537,1: POKE 49244,6 

4: LET L=3: LET S=PEEK 50005: LE 

T S=S+1i: POKE 50005,S: LET 5=25 

2040 POKE 4B198,5 

2045 IF PEEK 65529=0 THEN GO TO 
1998 

2050 LET SO-SO+ (L+PEEK 50005 + 1B+ 
(50-S))e(tg+15 

2060 GO TO :mes 

2500 CLS : FANDOMIZE USR 40509 

2518 PLOT 8,159: DRAW 255,0: PLO 
T 0,158: DREM 255,0: PLOT 0,114: 
DRAW 255,8: PLOT 98,115: DRAW 25 

3,0: PLOT 2,116: DRAW 255,68 

2520 FOR €=8 TO 3i: PRINT AT 1,4 
;3CHR$ (INT <ENDe16)+144): NEXT € 
25350 FOR f=8 TO 28: LET A=INT [(R 
ND+256): LET B=INT (RND4B)+167: 


PLOT A,B: NEXT F 

2548 FOR €=8 TO 1: PRINT AT 4,083 
INK 535 PAPER 1; BRIGHT 1; OVER 
15 "(32*sp)º;AT €,13; PAPER 2; IN 

K 7;"(42esp)“: NEXT f 

2550 PRINT AT 3,28; FLASH 1;" INS 

TRUCTIONS“;AT 3,11; FLASH B;"PAS 

S-3º 

2568 PRINT AT 3,0; INK 2;"RS5 ES 


3" 


2565 LET L$=" (9espHEREPORT START 

&": GO SUB TBBB 

2570 LET L$="WARNING-RED ALERT-D 

ANGER AREAs — :CITY OF THRAAL:* 
: GO SUB FBDBA 

25880 LET L$=“UNIDENTIFIED FLYING 
VEHICLES REPORTED SIGHTED FR 
OM VARIOUS LOCATIONS AROUND CI 
TY. .. NMEROUSSHOT DEAD. ..": GO S 

UB IBBB 

2590 LET L$="COMMANDINS OFFICER. 
«DO YOUR BEST": GO SUB JB0B: LET 


L$=" SFREPORT END” 


2608 GO SUB 3008: LET L$="": GOD 
SUB IBOG 
2618 LET L$=" 
TRUCT IONS 
2620 LET L$=" 


BRIEF FLYING INS 
“3 GO SUB JOB 
SCANNER 


"sz 60 SUB JU08 . 

2638 LET L$="SHOWS POSITIONS OF 

BUILDINGS & ALIENS.PATCH OF CON 

TRASTING COL-OUR IN CENTRE SHOWS 
SCREEN AREA VISIBLE.DOTS SHOWN A 

LIENS....": GO SUB FOGO |. 

2648 LET L$=" LASER 

“sz 60 SUB 3299 

2658 LET L$="OPERATED USING KEY 

“P's UNL IMITEDPOWER: DESTROYS DUTR 

IGHT AN ALIENIN ITS DIRECT PATH. 

one E GO SUB 3J208 

2660 LET L$=" SMART BOMB 

“; GO SUB 3008 

2678 LET L$="DPERATED USING KEY 
“D'sLIMITED TO S:USE SPARINGLY- 

AS LAST RES- ORT OM. Y.DESTROYS A 

NY ALIEN ON SCREEN - NOT ON SCA 

NNER —“: GO SUB I008 

2675 LET L$="" 

2688 LET L$="AFTER 18 WAVES DF P 

ROGRESSIVE  DIFFICILTY,YOU WILL 
ENTER HYPER-SPACE: THE FULL MIGH 

T OF THE MA IEN EMPIRE IS NOW 
UNBOUNDED BYTHE FORCES OF GRAVI 

TY AND SPEED UP CONSIDERABLY. THE 
BUILDINGS WILL NOT APPEAR...” 

: GO SUB 3B9G 

2685 LET L$="" 

2698 LET L$="THE PASS NUMBER IS 

DECREASED BY TH CURRENT LEVEL E 
VERY TIME AN ALIEN SLIPS BY YOUR 
SHIF. IF IT DECREASES PAST ZERO 
A LIFE WILL BE LOST...": GO SUB 
3008 

2695 LET L$="" 

2700 LET L$="AVOID CRASHING INTO 
THE CITY, AGAIN-YOU WILL LOSE 
A LIFE..."s GO SUB 3800 

27180 LET L$="" 

2880 LET L$="WHEN YOUR 3 LIFES H 

AVE BEEN LOSTTHE GAME IS OVER.HO 

WEVER ENTER- ING HYPERSPACE REPL 

ENISHES YOUR STORE AND IT WILL K 

ETURN TO 3...”": GO SUB IGG 

29080 LET L$="": GO SUB 32008 

I0B8 LET A=1: LET C=8: FOR F=1 T 

O LEN L$ 

3818 PRINT AT 21,C;LS$S(A): RANDOM 

IZE USR 48589: LET A=A+1: LET C= 

C+1 

3028 IF C<=31 THEN NEXT F 

3038 RANDOMIZE USR 3583: LET C=0 

: NEXT F 

3848 FOR F=1 TO 4: RANDOMIZE USR 
3583: RANDOMIZE USR 480589: NEXT 
F: RETURN 

9998 STOP 

9999 CLEAR : SAVE "CITY" LINE 1: 

RUN 
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Era uma vez... Numa longínqua galáxia, os seus habitan- 
tes ocupavam-se das tarefas do dia-a-dia de forma seme- 
lhante à dos habitantes de um planeta que, em tempos 
imemoriais, alguém chamara Terra. 

Na pequena aldeia, jovens casais ocupavam algum tempo 
livre para lavarem e darem brilho aos seus carros enquanto 
os filhos se entretinham a garatujar as paredes e a destruir 
as cabines telefónicas. Enfim, naquela pequena aldeia de 
uma galáxia distante, todos os hábitos e vícios da civilização 
estavam patentes até ao dia em que ELES chegaram. 

A noite ameaçava trovoada o que não levantou quaisquer 
suspeitas e, nem sequer a luz intensa que aparecia por 
trás das montanhas, preocupou ninguém. Nessa noite dis- 
putava-se a grande final do campeonato, no estádio local, 
repleto de gente e fortemente iluminado. Devia ser isso... 

Mas... quando, na manhã seguinte, a aldeia despertou 
para mais um dia de trabalho, algo de dramático tinha 
transformado o ambiente. A princípio, muitos ainda protes- 
taram por aquilo que supunham ser mais um dos habituais 
cortes de corrente da companhia de electricidade. No en- 
tanto, não era habitual que os cortes de corrente deixassem 
um buraco negro no sítio onde, antes, estivera a tomada 
da máquina de barbear, nem que a torradeira estivesse 
derretida e a máquina de lavar, carbonizada. E quando 
saíram de casa e depararam estarrecidas com as cinzas 
fumegantes do seu carro último modelo, começaram a 
desconfiar que se passava algo de mais complicado que 
um simples corte de corrente. 

A voz ampliada que vinha das altas montanhas, confirmou 
as súspeitas do povo da aldeia. Todas as invenções dos 
dois últimos séculos tinham sido destruídos e, informava 
a voz, era proibido utilizar qualquer equipamento eléctrico 
ou mecânico. Qualquer resistência seria inútil e, passados 
séculos, as gentes civilizadas da aldeia tinham regressado 
ao estádio da barbárie mais primitiva. 


Mas, finalmente, a opressão dos Senhores e dos Trípo- 
des, uma espécie de polícia-robot, ultrapassou os limites 
e o povo decidiu destruir os seus carrascos. 

A sua missão, se se decidir a aceitá-la voluntariamente, 
será a de destruir a Cidade Dourada onde residem os 
Senhores e os Trípodes. Para o conseguir, procure o balão 
em que subirá até às Altas Montanhas, encha-o de gás 
e use a última arma disponível. 

Mas tenha cuidado — os opressores tiveram o cuidado 
de corromper e subornar alguns dos seus compatriotas 
e são eles que irão tentar impedir que a sua missão tenha 
êxito. Não confie em ninguém. 


O JOGO 


As acções, são: 
e Os Senhores e os Trípodes devem tentar destruir todo 
o povo que não é controlado pelos jogadores. 

e O povo deve colaborar numa acção conjunta para 

destruir a Cidade Dourada. 

As listagens do programa devem ser introduzidas na 
seguinte sequência: primeiro, a listagem n.º 1. Quando a 
figura se encontra registada na memória aparece no écran. 
Se se verificar alguma má-formação, a linha onde ocorreu 
o erro poderá ser detectada pela introdução da letra im- 
perfeita. Se as figuras estiverem completamente erradas, 
terá que verificar todos os dados introduzidos. Logo que 
a figura esteja satisfatória, entrará «OK» e o programa 
confirmará os dados. Poderá então limpar o programa de 
memória e entrar com a listagem n.º 2. A seguir, faça Oo 
programa e siga as instruções. O programa pedirá a intro- 
dução dos dados da listagem n.º 1. Se, depois desta 
linha, verificar que se enganou em alguma linha da listagem 
n.º 2, faça GO TO 20. 


Tabela 1: 
Principais variáveis 


Ordens: 


Os nomes das figuras. 

Os nomes dos objectos. 

As posições das figuras. 

A força das figuras. 

A maleabilidade das figuras. 
A posição do objecto. 

A força do objecto. 

Objecto n.º 1 que as figuras 
podem transportar. 
Objecto n.º 2 que as figuras 
podem transportar. 

Os números dos jogadores 
que movem as figuras. 
«Break down» da última 
ordem. 


Número de jogadores. 
Número da figura que 
pertence ao jogador que está 
na sua vez de jogar. 
Número do jogador que está 
a jogar. 

r Número de vezes já jogadas 
pelo jogador 

vg Descrição da posição. 

v,w,x,y, Variáveis que determinam as 
direcções que as figuras 
podem tomar. 

cg Ordens. 

pos, Usado para quebrar as 
ordens em 


begin palavras separadas. 


Tabela n.º 2: 
Linha-a-Linha 


10 | Instruções 

140 Escolha das figuras 

271 Programa principal, 
consistindo em: 

290-379 Imprime o local onde 
você se encontra, as 
direcções para onde se 
pode mover e aquilo 
que pode ver. 

380-389 Decide se alguém o 
está a atacar. 

390-400 Dá entrada às suas 
ordens. 

410-455 Interpreta as suas 
ordens. 

460-606 O programa salta para 
a sub-rotina apropriada 
à ordem. 

610-620 Rotina que informa se a 
sua ordem não foi 
compreendida. 

650-662 Decide quando um dos 
«maus» ganhou o jogo. 

670-680 Move os objectos que 
o jogador está a 
transportar. 

1200 Rotina da escalada 
"1800 Rotina do trajecto 
2400 Rotina da luta/morte 


3200 Rotina de análise 

3500 Rotina visual 

3800 Rotina de inventarização 

4100 Rotina de «pega-e-larga» 

4700 Rotina de flutuação 

5000 Rotina de acumulação 

5600 Rotina do movimento para Norte 

5700 Rotina do movimento para Sul 

5800 Rotina do movimento para Leste 

5900 Rotina do movimento para Oeste 

6600 Rotina aberta 

6800 Rotina para conservar o jogo 
(save game) 

6800 Rotina para carregar o jogo 
(load game) 

7500 Dados para os posicionamentos 
(104 posições) 

8700 Rotina da metodologia do ataque 

8800 Rotina para a vitória dos «bons» 

8900 Rotina do movimento das figuras 

9000 Variável da rotina de iniciação 


Listing 1 


19 CLEAR 43999: PRINT AT S,BICMAIT WHILE 
THE NEW CrARACTER SETIS POKCD INTO MEMORY 
FOR j=15614 TO 163984 
POKE (1+48384),PEEK 5 
NEXT 4 
RESTORE 1009 
FOR :=64008 TO 64023: GO SUB 


FOR ;“642908 TO 644215: GO SUB 
FOR /=64248 TO 44942353: GC SUB 
FOR j=64264 TO 64471: GO SUB 


POKE 27696,0: POKE 23607,249 
: PABCDEFGHI JKLMNOPORSTUVUxXY 


POKE 253607,68: PRINT "Do any of thes 
e characters ioux wrong, if so input the ch 
aracter eise input '*ok'* 
138 INPUT IºCOMMAND “ias 


160 IF aB="ok" THEN GO TO 398 
170 IF as=""" 04 2a8="7" OR as=":" THEN PR 
INT “CHECK LINES 10908 to 19020";- STOP 
199 LET a=CODE as-ó65 
IPB TE a<d OR a>Z26 THEN GO TO 159 
2908 PRINT “CHECK LINE "/18030+ax1M: STOP 
SOM PRINT * “INSERT A BLANK CASSETTE WITH 
AT LEAST 3 min BLANK SPACE ON. THEN RE 
WIND TAPE ,* 
S1IB SAVE “chrs"CODE áSI09B, 7648 
SZ0 PRINT “NOW REWIND THE TAPE, AND PRESS 
PLAY TO VERIFY THE DATA. ": VERIFY “chrsº 
CODE ssgog,7458 
ssg CLS : PRINT "OK,NOW THE º“ROGRAM WILL 
CLEAR ITSELF FROM MEMORY READY FOR Yo 
U TO TYPE IN LISTING 2.º 
s4B PRINT FLASH 13 INK LI"PRESS ANY KEY T 
O CLEAR PROGRAM * 
IF INKEYS="*" THEN GO TO 558 
NEW 
READ a: POKE j,am: RETURN 
DATA 16,535,56,S6 16,0, 16,7 
DATA 9,108,1089,72,97,0,7,8 
DATA 9,0,724,24,7,24,24,8 
DATA 7,60,126,172,28,98,7,98 
DATA 0,24,52,102,126,68,364,118 
DATA 7,124,125,192,124,192,126,92 
DATA 9,24,45, 1702,96,1902,60,24 
DATA 9,129,124,192,102,1902,124,88 
DATA 0,28,62,112,129,112,42,28 
DATA 0,14,62,112,127,112,96,44 
DATA 9,28,62, 102,96, ,119,124,68 
DATA B, 102,192,192,126,126,102,118 
DATA 9,62,62,24,24,24,62,126 
DATA 9,36,78,5,6,70,124,54 
DATA O, 102, 118, 124, 120, 198, 1902,114 
DATA 9,98,48,4948,96,76,126,60 
9,230,254,254,27214,214,198,1902 
BG, IB, 118B,126,126,110,192,54 
B, 24,60, 192, 192, 102,60,24 
0,50,126,192,192,124,96,98 
0,24,68, 182,1902,109,62,62 
9,92,124,192,126,124,78,102 
S, 57, 102,76,60,6, 102,69 
0,126,90,24,294,24,24,24 
7, 108,44,108,198, 108,174,62 
9,78,38,102,192,118,649,24 
9,'98,198,198,212,124,124,49 
0,102,124,650,24,69,122,118 
9,6,102,1724,56,98,98,36 
8,126,974,28,56,112,126,114 


19 PRINT “LOAD THE DATA SAVED BY LISTING 
1º: LOAD “chrs"“CODE sagge, 7458 
28 PRINT *“HOM PELIND THE TAPE TO SAVE T 


HE FINISHED PROGRAM" 
38 SAVE “HIGH MTS" LINE 88: SAVE “chrs"C 
ODE 44909, 748 
sa 60 TO PH j 
89 CLS : PRINT FLASH 1; PAPER 1j INK 6/4 
T 19,51” LEAVE TAPE RUNNING ": INK 7: PAPE 
R? a 
Es LOAD “chrs"CODE 64996, 748 
99 POKE 236986,8: POKE 23487,249: moi 23 
658,8: POKE 236997, 129: BORDER 9: PAPER 9: 
INK 7 
199 BORDER 6: PAPER 8: INK é 
119 CLS : PRINT AT 2,6;"THE HIGH MOUNTAIN 
-- bd 
111 INK 7 
128 PRINT ** IF YOU ARE EITHER A MASTER O 
R ATRIPOD THEN THE OBJECT OF YOUR GAME IS 
TO DESTROY ALL THE OTHERCHARACTERS WHO AR 
E NOT BEING CONTROLLED BY OTHER PLAYERS 


138 PRINT ""“ IF YOU ARE NOT A MASTER OR A& 
TRIPOD THEM YOU MUST COLLECT THEAPPRDOPR 
IATE OBJECTS AND CARRY OUT THE TASKS TO 
ENABLE YOU TO DESTROY THE GOLDEN CITY." 
132 PRINT * JHEM YOU THINK YOU HAVE THE 
REQUIRED OBJECTS IN THEIR CORRECT 
FORM, MOVE TO THE GOLDEN CITY AND FI 
RE aWaAr.”* 

13X G0 SUB 9969: PRINT FLASH 1L| PAPER 6; 
INC 14º" PRESS ANY KEY TO BEGIN a 

134 IF INKEYyS="" THEN GO TO 134 

135 CLS : PRINT INK 4JAT 2Z,61"THE HIGH MO 
UNTAINS* 

136 PRINT "COMMANDS ARE :"['IºCLIMBI'SCA 
IDE DIRECTION*;' “KILL “4 º8ºB3G 
HT Lad 

137 PRINT “EXAMINE";*s “LOOK” |* 4" INVENTORY 
O SLOET TS TANE ES SUINPS! PSOTLL ME 
TH "1º" DRCOP“T*S“UNLOCK" E *SCFIREC;ºeCL 
OAD*1'1"SAVE*1';“AND DIRECTIONS TO MOVE," 

138 PRINT FLASH 1; PAPER 41 INK 149 PR 
ESS aNY KEY TO BEGIN » 

139 IF INKEyS="" THEN GO TO 13P 


: PRINT AT 2,6] "THE CHARACTERS": 
INK S: PRINT 
148 FOR j=1 TO Z9 STEP 2: PRINT aS(j)ITAB 
LléraB((jJ+1))7 MEXT 4 
INPUT I"THE NUMBER (F PLAYERS IS “Ino 
IF noti OR n0>5 THEae GO TO 178 
FOR j=i TO no : 
INPUT I(CPLAYER “444º =") 188(5) 
IF j-1<1i THEN GO TO 259 
FOR 1I=1 TO 2-1: IF s8(J)=aS((p(lji) T 


FOR k=1 TO 36: IF 28(j,: TI 4ivmaBik,:! 
TO 4) THEN LET p!tj'i=k: GO “O 279 

Z68 NEXT k 

265 G0 TO 208 

270 NEXT 5 

271 CLS 

288 FOR q=i TO no: LET z=píg): 
BD): LET dB(1)="LOOK e 

281 FOR j=i TO no: IF c(p(J/)>9 THEN GO T 
o 283 
282 NEXT 4: PRINT FLASH 11 PAPER 11 INK ó 
p EN 
D OF GAME , NO-ONE HAS WON THE 
GAME 
*: FOR k=i TO 10: DEEP .3,k: NEXT k: 6 

o TO 198 

283 IF c(z)c<=9 THEN NEXT q: GO TO 288 

284 PRINT : PRINT FLASH 15 BRIGHT 11 PAPE 
R 71 INK LI" HHHEDIFFERENT PLAYER'S TURNER 
4": PRINT 

285 FOR r=i TO diz) 

286 IF ciz)<=B THEN NEXT q: G0 TO 288 

287 LET k=INT (RND439)+1: FOR Usi TO no: 
IF kK=p(U) THEN GO TO 299 

288 NEXT U: GO SUB B98s 

290 PRINT PAPER 1| INK 4H RATE 
E NOM) YOUR TURN "CJAB(ZIFS 
A a 

293 IF dSti,i TO 2)="NOº OR dSti,i TO 2)= 
“SO” OR dU(l,i TO 2)="EAº OR dS(L,1 TO 2)u 
“WE* OR dB(1)="SWIM “ OR dS(1)=*RIDE 

* OR dB(i)="CLIMB * OR dSt1)="ENT 

ER * OR dS(1)="LOOK * THEN GO TO 
295 

294 00 TO 368 

388 FOR u=i TO ctz) 

318 REM TELLS YOU WHERE YOU ARE 

338 RESTORE ((iBka(z))+7498): READ vB, v,w 
1H, Y 

348 PAPER 6: INK 2: PRINT vs 

341 IF a(z)=78 AND nembai=S THEN PRINT “T 
HE SHED IS LOCKED 

342 IF atz)/=78 AND nembal=i THEN PRINT “T 
HE SHED IS NOT LOCKED 

343 RESTORE 9819: FOR j=1 TO 18: READ n,m 
: TF neatz) AND n<m THEN PRINT “THE CANAL. 
18 TO YOUR EAST . 

s4s IF nea(tz) AND m<n THEN PRINT “THE CAN 
AL IS TO YOUR WEST - 


346 NEXT 3 
348 PRINT "YOU CAN MOVE EITHER 


DIM dS(Z,1 


359 IF v=1 THEN PRINT “NORTH 


IF w=1i THEN PRINT “SOUTH 
IF x=1 THEN PRINT “EAST 
IF y=1 THEN PRINT “WEST 


POKE 23J492,255 

FOR ;j=1 TO 15 

IF +€(Jj)=a(tz) THEN GO TO 373 

Go TO 376 

FOR 1=1 TO 39: IF itij=j OR jíli=j TH 


EN GO TO 379 | ' 
374 IF ;j=7 AND nmubal=9 THEN NEXT 4 
3725 NEXT 1: PRINT "YOU CAN SEE : “Ipe(cs 
376 NEXT 4 
372 LET 0=1 
376 FOR j=1 TO 39: IF a(ji=a(z) AND 4j<>x 

THEN LET 0O=0+1: PRINT "YOU CAN SEE : Sa 

0431. 

379 NEXT 4 

' 3889 LET 11=INT (RNDE(LO-O) +41): IF 11<14.,4 

THEN GO SUB 6799 
399 PAPER O: INK 7: PRINT “WHAT DO YOU wa 

NT TO DO NOW “pjas(r)1" 7º; INK 4 
4098 INPUT F"COMMAND :“ics 
418 PRINT PAPER 74 INK gice 
428 DIM dB(7,19) 

438 LET begín=i: LET pos=i: FOR j=1 TO LE 

N cr 
440 IF c8(;j)=*" * THEN LET dsipos' =cS(begi 

A TO (4j-1)): LET begin=j+1: LET posspos+1 
459 NEXT 4 
453 LET dV(pos)=cS(begin TO (LEN cs)» 

468 IF dB(1L)="CLIMB * AND dB(2)="* IM 
* THEN GO TO 1298 


4898 IF dS(1L)="RIDE * THEN GO TO 1698 
SOS IF adsti)="KILL * THEN GO TO z4agg 
303 IF ds(1)="FIGHT * THEN GO TO 297% 
19 TF ISIL)s"ExAMINE * THEN GO TO 3209 
329 1” úSii;="LOOK * THEN GO TO 3598 
330 IF ást1,1 TO Si=" INV THEN GO TO 3898 
S48 IF dB(1)="GET * TMEN GO TO 4177 
559 IE dB(L)="TAKE * THEN G0 TO s159 
5720 IF deci)i="SWIM * THEN GO TO «7094 
389 IF dB(ii="FILL * TFEN GO TI sOgs 
398 IF dae(i)j="DROP * THEN GO “OD 35399 
399 IE dB(1)="LOAD * THEN GO TO 4848 
ó88 IF dBIL'=eSAVE * TMEN 29 TT 5800 


601 IF dB(i,i TO Z2)="NO" THEN GO “O sóBa 
602 IF dSii,i TO 2)="SO* THEN GO TO 5728 
603 IF dS(i,i TO 2)="EA” THEN GO TO sega 
604 IF dS(i,i TO 2)="WE* THEN GO TO s990 
675 IF dB(LIi="UNLOCK * THEN GO TO s688 
dé IF 4U(1L,1 TO 4)=“FIRE” THEN GO TO seg 
s 

610 PRINT “I DO NOT UNDERSTAND YOU '** 
428 GO TO 188 

658 FOR J=17 TO 39: FOR U=1 TO NO 

6S1 IF j=p(lU) THEN GO TO 668 


632 NEXT U 

633 IF c(4)>8 THEN GO TO 479 

668 NEXT 3 

642 IF z<17 THEN PRINT PAPER 14 INK 64 FL 
ASH 14º EN 


D OF GAME ,"jas(tz)s* HAS WON THE GAME 
“1: FOR k=1 TO 10: BEEP .3,k: NEXT K: PAU 
SE 199: 00 TO 1909 
670 IF 14(7)<>290 THEN LET +f(tcitri)jieatzs 
689 IF j(tz)<>9 THEN LET d(tijtz)ijiwmatz> 
7708 NEXT r: NEXT q: GO TO 269 


1200 REM CLIMEB IN 
1Z10 IF 49(3,1 TO 4)="BOAT* THEN GO TO 138 
s 
1228 IF d9(3,1 TO 4)="RIVE" THEN GO TO 149 
e 
1238 PRINT “THERE 18 NOTHING TO CLIMB INTO 
HERE ... 
1248 G0 TO 438 
1300 IF 4t13)<>a(z) THEN PRINT “THE BOAT I 
S NOT HERE.*: GO TO 438 
1318 RESTORE 9618: FOR j=1 TO 18: READ n,m 
: IF nea(z) THEN GO TO 1338 
1328 NEXT 4: PRINT “THE BOAT DOES NOT MOVE 
BECAUSE YOU ARE NOT NEAR ANY WATER SO 
YOU CLIMB OUT OF IT AGAIN.": GO TO 638 
1349 LET atr)vm: IF 1(x2)<>8 THEN LET ftitz 
RR) 
1359 IF jtzx)<>0 THEN LET 4(4(2))=m 
1360 IF c(z)>4 THEN PRINT “YOU HAVE CROSSE 
D THE RIVER IN  SAFETY.*: GO TO 439 
1376 PRINT “YOU CROSSED THE RIVER, BUT VERE 
WEAK AND SO LOST SOME OF YOUR  MANOUVRE 
ABILITY.* 
1389 GO TO 438 
14906 IF +4(14)<>atz) THEN PRINT “THE RIVERB 
DAT IS NOT HERE.": 00 TO 638 
1418 RESTORE 9819: FOR j=i TO 18: READ n,m 
:* IF n=a(z) THEN GO TO 1439 
14298 NEXT j: PRINT “THE RIVERBOAT DOES NOT 
movE BECAUSE YOU ARE NOT NEAR ANY 
WATER SO YOU CLIMB OUT OF IT AGAIM.*: q 
o TO 638 
1448 GO TO 1348 
18909 REM ride 
1816 IF dg8(2)="HORSE “* THEN GO TO 1089 
1929 IF as(Z)="Ccam “* THEN GO TO 1998 
1830 IF d8(Z2)=" TRAIN * THEN GO TO 2868 
1848 PRINT “YOU ARE NOT ABLE TO RIDE THAT 
OBJECT.*: GO TO 439 
1889 IF a(z)<>4(9) THEN PRINT “THE HORSE 1 
S NOT HERE SO YOU CANNOT RIDE IT.": 60 
TO 63s 
1899 FOR j=1i TO 4 
1879 RESTORE a(z)F1ID+749H: READ vS,v,m,x,y 
3: IF dSc(3,14 TO 2)="NO* AND v=1 THEN LET aí 
z)i=a(z)-13 
1908 IF dU(3,1 TO 2)="S0" AND w=1i THEN LET 
atzxiva(lr)+e13 
1P1S IF dO(3,1 TO 2)="EA" AND x=1 THEM LET 
alzisa(z)+1 
1728 IF 49(3,1 TO 2)="WE" AND y=1i THEM LET 
atzisa(z)-1 
19398 NEXT 4 
1948 00 TO 438 
LPPS IF a(z)<>4(8) THEN PRINT “THE Cam [8 
NOT HERE SO YOU CANMAT DRIVE IT.": 00 
TO ess 
2908 FOR ;=1 TO é: GO TO 1898 
2968 IF a(z)<>6(10) THEN PRINT “THE TRAIN 
IS NOT MERE SO YOU CANNOT RIDE IM IT EI 


THER NORTH OR SOUTH.*: GO TO 438 
2979 IF 49(3,1 TO 2)="EAº OR dS(3,1 TO 21 
“VE” THEN PRINT "THE RAILWAY DOES NOT 00 I 
mM THAT DIRECTION.": GO TO 639 

Z998 FOR j=1 TO 4: 00 TO 1898 

2409 REM K$11 

2418 FOR j<1 TO 381 IF atii=a(tx) AND ascs, 
1 TO 4)ddS(2,1 TO 4) THEN OO TO 2448 

2428 NEXT j: PRINT dS(2)1" IS NOT HERE TE 

FIOMT:*: SO TO 434 

2449 FOR kK=i TO no! IF plki=s THEN 00 TO 2 
a) 

2456 MEXT k 

2473 PRINT PAPER 214 INK 75" DO YOU wa 
“WT TO ATTACK “pas(z)s* 

“ 


2478 POKE 23497,255 

2408 IF INKEYS="Y" THEN GO TO 2566 

2497 1F IaXEve="Nº THEN PRINT “NO BLOUG UE 
E TAKEN": 90 TO 438 


2495 60 TO Z4ams 

2306 LET K=IMT cmuDes) -2 

2318 LET kk=INT cauDaS)-Z 

2511 IF cijickcmciz)skk THEN 00 TO 2528 

7312 LET cizimc(z)-4: PRINT “YOU VERE BAM. 

Y INJURED.* 

2515 IF ciz)i<=S THEN PRINT “INFACT YOU HAY 

E DEEN KILLED. ": LET a(r)=9797: 00 TO 438 

zsi16 00 TO 24798 

2529 IF ctjitck>=mectr)ckk THEN GO TO 2338 

2922 LET ctjivciji-4: PRINT as(j)1" WAS BA 

mr INJURED. * 

27525 IF cific<=g THEN PRINT “INFACT “tamtigsi 

1º HAS BEENKILLED.": LET atiji=9997; 60 TO é 

ss 

25277 00 TO 2479 

25389 IF cijickIcizx)itckk THEN PRINT “YOU VER 

E SLIGOHTLY INJURED.*! LET cirisciz)-is 00 

TO 2478 

7548 IF ctjisute(izictkk THEN PRINT aBtj)0* 

vas SLIGONHTLY  INJURED."1: LET ctsi=ctgsd-13 
o TO 2478 

2356 PRINT “NO-ONE WAS INJURED* 

Z564 00 TO 2478 

Z608 IF ciji<=S THEN LET a(i)i=P9P: LET 1€5 

1900: LET J(ji=t PRINT as(jJ)1" WAS KILLED 
s:es 00 TO 638 : 

2601 IF cíiz)<=S THEN LET a(z)=P999: LET 41 

Ti: LET jizisO: PRINT aB(zr)1" WAS KILLED 
sº=s GO TO 638 

2605 PRINT aB(j)1" DO YOU WANT TO DROP ai. 
YOU ITEMS AND CONCEED 7º 

Z400 POKE 23492,253 

Z618 INPUT "COMMAND 1"“118 

2629 IF [19="vYES* OR i8="Y" THEN 00 TO Zumo 
26398 PRINT “RIGHT TO BATTLE WE 00“ 

7635 PRINT PAPER 21 INK 714º DO YOU wa 
NT TO ATTACK “pjas(z),* 


2436 IP INKEyO="Y" THEM G0 TO 2648 
2637 IF IMKEvYUB="Nº THEN GO TO 438 
2638 00 TO 26346 


26406 LET k=INT (RNDSID) -4 
2650 LET «k=INT (RNDG10)-4 
2660 IF cijick>wc(iz)-Kk THEN GO TO 2478 


2662 LET crisI=c(j)-4: PRINT aB(j)t” WAS BA 


DLY INJURED. * 

2666 60 TO Z609 

2670 IF c(jyj-k<=c(z)+kk THEN GO TO Zá89 
2672 LET ciriwmc(izi-4: PRINT astz)1* was BA 
DLY INJURED. * 

26753 IF ciri<=8 THEN GO TO 2481 

2676 00 TO Z668 . 

2608 IF ctjjek>c(iz)tkk THEN PRINT as(z)s* 

vas SLIGHTLY INJURED.": LET clzisc(izi-1: 
G0 TO 2Zéees 

Z698 IF cirickk>c(ji+k THEN PRINT aB(1)3* 

WAS SLIGHTLY INJURED.*: LET ctjimecty)-a1: 
G0 TO Zase 

Z69753 PRINT “NO-ONE dAS INJURED.* 

2708 G0 TO Zase 

2896 PRINT aS(J)1"“CONCEDES."'*“NO MORE BLOW 

S WERE TAKEN. * 

Z019 LET t(411/=6: LET jJ(j)/=8: GO TO 6398 
J296 REM examine 

32198 PRINT “LI DO NOT SEE ANYTHING UNUSUAL 

ONCIdB(Z)1" CPAD(T) | * "HABIS) 

3228 G0 TO “38 

33598 REM look 

3318 GO TO 328 

3899 REM inventry 

3818 PRINT “INVENTORY IS ;* 


36038 IF j(2)<>0 THEM PRINT TAB 13HbSC(scz))) 


3848 G0 TO 438 
4198 REM get/tako 


4192 IF dB(2)="BALi CON * AND numbal=g TH 


EM GO TO 4148 

4118 IF do(2,1 TO 4)="GREN" AND 2<17 THEN 
PRINT “BADDIES CANNOT PICK UP THE or 
ENADES": GO TO 434 

4129 FOR j=1 TO 15: IF ds(Z2,1i TO 3)/=be(3,1 
TO 3) THEN 00 TO 4158 

4138 NEXT 4 

41498 PRINT “SORRY, 1 DO NOT SEE THAT OBJEC 

To 

4144 60 TO 638 

4136: FOR K=1 TO 38: IF jwi(k) THEN PRINT 
“I DO NOT SEE THAT OBJECT MERE.": GO TO é3 

e 

4168 NEXT k 

41798: FOR k=1 TO 38: IF j=j(k) THEN PRINT 
“1 DO NOT THAT OBJECT HERE.": 00 TO é3 

+, 

41098 MEXT k 

4198 IF 1(75€>0 AND S(7)<>0 THEN PRINT “YO 

U HAVE TOO MANY OBJECTS SO CANNOT PICK 

UP THE “tbs(s): OO TO 6348 

42086 LET cirimc(iz)ieg(s) 

42198 IF i(z)i= THEN LET t(zi=j: PRINT *" q 


K '**: 60 TO 438 
4228 LET jtz)=9: PRINT ** OK **: GO TO 63 


4708 REM mim 

4761 RESTORE 9819: FOR j=i TO 160: READ n,m 

* IF n=a(z) THEN 60 TO 4718 

4702 NEXT 3 

4703 PRINT “THERE IS NOWHERE TO SWIM ACROS 

S NERE '*'*: 60 TO 438 

4718 PRINT “YOU HAVE SWUM ACROSS THE RIVER 
» BUT IN DOING SO HAD TO LEAVE ALL THE 

OBJECTS YOU WERE CARRYING BEHIND. * 

4728 IF 11(2)€>8 THEM LET c(z)=ctz)-g(ttt(tz> 

+» 

4723 IT j(77<>8 THEN LET cizi=ciz)-g(tj (tz) 

+ 

4730 IF ciri<s THEM PRINT "YOUR STRENGTH MH 

AS RUM OUT AND YOU HAVE DIED.": NEXT r 

4748 LET ti(zi=: LET j(r)=g 

4730 LET atzi-m: IF neiem THEN PRINT “YOU 

Swam EAST* 

4766 IF m-1-m THEM PRINT “YOU SwWAM WEST" 

4778 60 TO ass 

sos REM 41411 

SOS IF d9172)€>"BALLOON “* THEN PRINT “YO 

U CANNOT FILL THE “IdB(Z)1" WITH "rdBi4)Is 

«*: 60 TO 638 

SO29 IF dB(4)<>"HYDROGEN " THEN PRINT “YO 

U CANNO” FILL “Eas(Z)NCWITHM THAT.": GO TO 

3. 

SOIS IF 1(2)€>7 AMD j(71<>7 THEN PRINT “YO 

U DO NOT HAVE THE BALLOON.,": GO TO é38 

SO4S IF 117)€>15 AMD j(7)<>13 THEN PRINT * 

YOU DO NOT HAVE THE HYDROGEN": GO TO 438 

3834 PRINT “THE BALLOON FILLS UP WITH 
HYDROGEN, A DANGEROUS VET VERY IMPORTAN 

T GAS.” 

066 IF bS(1(z)1="BALLOON * THEN LET bS( 

1 tz) Ie" BALLOOW “7 LET +(jiz))=9P9P; LET Jtz 

i=: G0 TO 638 

S978 IF bB(j:7z'r1="BALLOON * THEN LET bO( 

4 t2))="BALLOOM, ">: LET fitiz))=999: LET 1(z 

1-8: G0 TO 638 ; 

33998 REM drop 

SILF FOR j=1 TO 13: IF dS(2,1i TO 3)=b8tj,i 
TO 3) THEN 60 TO 35349 

5329 NEXT 3 

3336 PRINT “YOU SME NOT CARRYING THAT OBJE 

cr ''*s 00 TO 639 

5340 IF bO(Ciitz),i TO F)i=ds(2,1 TO 3) THEN 

LET ciziwc(iz)-gtt4i(z)))7 LET ttz)=g: PRINT 
ce 0 K *ºs: 60 TO 38 

33349 IF bStjtz),1i TO FSi=ds(2,1 TO 3) THEN 

LET cirisctzi-g(tjtzx)))s LET jtzi=f; PRINT 
“"* 0 K *": 00 TO 434 

5368 060 TO 3334 

40 REM M 

S618 IF vo THEM PRINT “YOU CANNOT MOVE IN 
THAT DIRECTION.": GO TO 3298 

S629 LET atriw=a(tzi-13 

34638 PRINT “* OK **;: 00 TO 439 


37208 REM 8 
37218 IF vw=g THEM PRINT “YOU CANNOT MOVE IN 
THAT DIRECTION.*: GO TO 329 


5729 LET atriva(tr)+13 

5738 PRINT “" O K *“;: 00 TO 6430 

s800 REM E 

SS1LF IF x=8 THEN PRINT “YOU CANNOT MOVE IM 
THAT DIRECTION.": G0 TO 329 

5629 LET a(r)i=a(z)+1 

35839 PRINT **' OK *": G0 TO 438 

3909 REM W 

SP18 IF y=8 THEN PRINT “YOU CANNOT MOVE IN 
THAT DIRECTION.": GO TO IZIZ5 

5929 LET alzimatz)-1 

3939 PRINT ** OK *'*: 30 TO 4386 

6600 REM unlock 

6610 IF d7(2)="SHED * THEN GO TO 4638 
6620 PRINT "IT'S NOT POSSIBLE TO UMLOCK TH 
ATº*: 00 TO 639 

66I0 IF de(4)="PEN “* THEN 60 TO 64645 
6648 PRINT “YOU CANNOT UNLOCK THE SHED WIT 
H THAT,.º*: GO TO 638 

6643 IF 1(7)<>3 AND j(7)<>3 THEN PRINT “YO 
U DO NOT HAVE THE PEN.": GO TO 438 

66647 PRINT “THE SHMED IS NOW UN OCKED* 

6678 LET nmmbal=i: GO TO 639 

6808 PRINT “SAVE GAME TO TAPE“ 

6B1B SAVE "SAVE" LINE 4869 

4828 GO TO 388 

6848 PRINT “LOAD SAVED GAMES 

685€ LOAD "SAVE" 

6860 PRINT “SAVED GAME HAS NOW LOADED” 
6878 060 TO 298 

75308 DATA “THERE IS A SMALL HUT HERE ,AMD 

AFEWU LOGS. “,B,1,1,9 

7518 DATA “YOU ARE ON A SMALL PATH NEXT TO 
SOME MURKY WOODS",9,1,1,1 

7328 DATA "YOU ARE ON A SMALL PATH. IM THE 
DISTANCE YOU CAN SEE MORE PATH.",8,95,1,1 

7538 DATA "YOU ARE ON A SMALL PATH. IN THE 
DISTANCE THERE IS THE SHMAND FAIR",9,9 
2,2 

7548 DATA "YOU ARE AT A DERELICT PAILHAY 
STATION.THE RAILWAY LINE LEADS SOUTH.",M 
,84,14,1 

75358 DATA "YOU ARE ON A FLAT STEANY NDOOR. 
TO YOUR EAST THERE IS A CANAL ",8,1,98,1 

7368 DATA "YOU ARE ON A FLAT STEANY MOOR. 
TO YOUR WEST THERE IS A CANAL",B,1,14,9 

7578 DATA "YOU ARE IM THE EASTERN PART OF 
WICHESTER.",0,1,1,1 

7388 DATA “YOU ARE IN & DAMP AND NYSTERIOU 

SORAVEYARD.",O,1,1,8 

UPS DATA “YOU ARE IN THE VILLAGE OF 
WICHESTER, AND CAM SEE A FEW HOUSES EI 

THER SIDE OF THE DUSTY STREET.",9,1,1,1 

7608 DATA “YOU ARE ON THE EAST SIDE OF 
WICHESTER.",9,1,1,1 

76180 DATA "YOU ARE IN A FIELD OF TIMNIPS 
WITH A SCARECROW NEARBY. ",5,1,7,1 


7628 DATA "YOU ARE AT THE BACK OF A CAVE 
AND CAN SEE THE WORDS * vEK ENT SI MEP EM 
RA | | 

7638 DATA “YOU HAVE ENTERED & TUMMEL 
THROUGH THE HIGH CLIFFS SIE IMD T 
NG THE DENSE FOREST.*,1,1,9,8 

7646 DATA "YOU ARE AT THE EDGE OF THE DENS 
raso r.”, 1,1,1,9 

7658 DATA "YOU ARE IN A VALLEY IN THE DENS 
EFOREST AND IT IS SURROUNDED By mIGH STEP 
SIDES.*,9,9,1,1 

7668 DATA “YOU ARE AT THE NORTH EAST EDGE 
OF THE DENSE FOREST.*,9,1,1,1 

7678 DATA “YOU ARE IN & LARGE FLAT FIELD 
WITH A RAILHAY RUNNING THROUGH ET.º,isds 
2,8 

76068 DATA "YOU ARE IN & FIELD OF Bam Er AM 
DCAN SEE THE GOLDEN CITY IM THE PISTAMCE. 
“,1,9,8,1 

7698 DATA “YOU ARE IN THE GOLDEN CITY.THE 
WALLS OF THE BUILDINOS GLEAM IM THE SUM 1 
GHT.",1,1,1,8 

7708 DATA “YOU ARE IN SOME FIELDS, AMB CAM 
SEE A STOUT FENCE TO YOUR EAST. *,1,1,8,1 
7718 DATA "YOU CAN SEE THE CHURCH. ",1,1,1, 
s 

7728 DATA "YOU'RE IN THE SOUTHERN MOST PAR 
TOF WICMESTER.",1,98,1,1 

7738 DATA "YOU CAN SEE WILL'S FATHER"S SAW 
NIta so Labod 

7748 DATA "YOU ARE IM A FIELD OF MAZE.",1, 
1,0,1 

7750 DATA “YOU HAVE JUST ENTERED A CAVE AM 

DARE SURROUNDED BY DARKNESS" ,1,1,0,8 

7768 DATA "YOU CAM SEE PART OF THE TURMAS, 
THAT HAS FALLEN IN.",1,0,0,0 

7779 DATA “YOU ARE IN THE THICK FOR-3T",A, 
1,1,9 

7788 DATA "YOU ARE IN THE MIDDLE OF THE 
DENSE FOREST. -,8,1,1,1 

7796 DATA “YOU ARE IM THE DENSE FOREST",1, 
1,0,1 

7ROS DATA "YOU ARE NEXT TO THE RAILHMAY.",1 
ad 8,8 

7018 DATA "YOU ARE ON A FLAT MDOR.",B,1,9, 
Ê 

7029 DATA “YOU 
THE NORTH AND 


SEE TIS: GOLDEN CITY TO 
ON 4 FLAT PLAIM.º,1,4,1 


e P 

, 

7838 DATA "YOU IN & LARGE FIELD FULL O 
FFLOVERS.",1,1,8,1 

7848 DATA "VOU ARE IN THE VILLAGE PARK. ",1 
01,9 

7856 DATA “YOU ARE AT THE VILLAGE ENTRANCE 
2.0,8,28,% 

7868 DATA “YOU ARE IN THE VILLAGE FARNING 
AREA. *,1,9,1,1 

7878 DATA “YOU ARE AT THE EXTREMM OF THE 
VILLAGE FARMLAND*,L,9,9,1 

7889 DATA “YOU CAN SEE A CAVE TO YOUR NORT 
HAND ARE IN A SMALL GLEN,",1,1,9,4 

7898 DATA “YOU ARE AT & PART OF THE TULL 
THAT HAS FALLEM IN.",9,1,9,8 

7900 DATA “YOU ARE NEXT TO SOME HIGH CLIFF 

SBUT ARE STILL IN THE FOREST.",1,5,1,9 
79198 DATA "YOU CAN SEE HIGH4 CLIFFS ERON 
THIS POINT IN THE FOPEST.",:,9,1,14 

7926 DATA "THE FOPEST IS THIN HERE. ",1,08,1 


7938 DATA “YOU Cam SE THE RAILWAY PASSING 
NEAR TO THE FOREST HERE. “*,1i,i,I,i 
79748 DATA "THERE IS AM OLD DEEP PIT MERE.* 
sd, 044 
7956 DATA "YOU CAM SEE A LARGE TRIPOD FOOT 
PRINT MERE.",1,1,9,6 
7760 DATA “YOU CAM SEE & FIELD OF GOATS 
HERE",1,1,1,8 
7778 DATA “THERE IS A WALL HERE WITH VINES 
OROVING ALL OVER IT",E,1,9,1 

“rOU CAM JUST SEE THE VILLAGE 

L, 1,9 

“THERE IS A LARGE FIELD HERE*,S, 


“THERE IS A LARGE FIELD HERE *,E, 


“YOU AME AT THE ENTERANCE TO & 

“,1,1,8,1 
6720 DATA “TOU ARE SOUTH OF THE LARGE 
CLIFFS.*,1,1,1,8 
8938 DATA “YU CAM SE THE LARGE CLIFFS BUT 
ARE IM OPEN SPACE.*,8,1,1,1 
Ross DATA “YOU CAM SEE REMAINS OF A TALL. 
PYLON.*,96,1,1,1 
69538 DATA “YOU CAM SEE A LARGE SIGOM SAVING 
"NIM vo-T,-€º".º,0,1,1,4 
8968 DATA “YOU CAM SEE A LARGE ROCK 
RESENBL ING A PEN,OR IS IT A KEY.º,1,1,5,1 
8975 DATA “YOU ARE OM A FLAT PLAIN MEXT TO 
THE Cama. .“,1,1,98,14 

DATA “YOU CAM SEE HOCF MARKS."“,1,1,8, 


DATA “YOU ARE OM & BM. EAK MOOR.",1,1,1 


DATA “THERE IS A SHARP DROP TO THE 
SOUTH OF TME BAREM ROCK OM WHICHYOU STAND 
2º od da £ Me: 

B1L19 DATA “YOU ARE STANDING ON À WELL 
TRODDEN PATH", 1,8,1,1- 

8129 DATA “YOU CAM SEE MOUNTAINS GLISTENIN 

GIN THEIP FULL GLORY.*,1,8,1,1 

B13S DATA “YOU ARE IM THE REMAINS OF & 
GREAT CITY.*,1,1,1,1 

8148 DATA “YEN ARE SURROUNDED BY HIGH 
MOUNTAINS.*,1,1,9,1 

BISO DATA “YDU ARE STANDING ON & WHITE 
DOTTED LINME*,1,1,1,9 

8165 DATA “THERE IS AM OL) WARE HOUSE HERE 
REPOUSA 

B168 DATA “THERE 15 AM OLD VARE HOUSE HERE 
cPyistsdo 8 


178 DATA “A DRY RIVER PASSES THROUGH HERE 

E E 

BISS DATA “THERE ARE REMAINS OF A BRIDGE HM 

ERE.º,1,1,1,8 

BIFE DATA “THERE IS THE REMAINS OF AM OLD 
STATION HERE. ",1,9,1,1 

EZ9F DATA “YOU CAM SEE THE CAMA GL ISTENIN 

SIM THE SUM.",1,1,5,1 

BZ18 DATA “TOU AME AT A PUB ALONG SIDE THE 
CANEL.*,1,1,1,9 

BZ28 DATA “THERE IS THE REMAINS OF A LARGE 
BOAT MERE.",1,1,1,4 

BZ239 DATA “THERE IS THE REMAINS OF A TRIPO 

DHERE.",9,1,1,1 

248 DATA “THERE IS THE REMAINS OF A DEAD 
SHEEP MERE.",9,1,1,4 

825€ DATA “YOU CAM SEE A LARGE MAM MADE 
TUNNEL.*,9,9,1,14 

87268 DATA “YO ARE IM A SMALL GREEN VALLEY 

ASA. 

8278 DATA “YOU CAM SEE SOME GLOWING LIGHT 
BULL BS IM AM LD SHED AMD WONDER WHAT POVE 

RS THEM.*,1,1,0,4 > 

SZ88 DATA “THE LAMD IS FLAT AND BEAR HERE. 

6.8, 8,45,0 j 

B298 DATA "YOU RE IM & CITY OF THE ANCIENT 

sº,1,0,14,1 

8388 DATA “THERE ARE LARGE BUILDINGS ALL 
AROUND. “,1,1,9,1 

8318 DATA “MANY LONGO CARRIAGES ARE AROUND 
YOU.",1,1,1,8 

8329 DATA “THE CITY OF THE ANCIENTS LOOKS 
DARK AMD VONDERFUL.",9,98,1,1 

8339 DATA “YOU ARE IM A SMALL MEADOW BY TM 

E CANAL .*,1,1,98,1 

8348 DATA “TON CAM HEAR THE CANAL HORSES 
a DS Ga 

8354 DATA “YOU AME OM AM OLD TRACK. ",84,1,4 

9 

B34M DATA “: E CLD.TRACK YOU STAND ON DIPS 
A LITTLE. *,2,2,8,2 

8378 DATA “TOU RE IM A VILLAGE BY THE 
MOUNTAILMNE.*,1,14,1,4 

8389 DATA “YO ARE OM TOP OF A LARGE 
MOUNTAIN “MD CAM SEE A SMALL LIGHT TO 

THE ENE.",8,1,1,1 

83IPS DATA "THE MOUNTAIXS ARE NCT SO TALL 
HERE.",1,151,8.1 

405 DATA “YOU AME IN A LARGE FLAT VALLEY 

.“,4,1,9,8 

0418 DATA “THERE IS A TAL CHINNY HERE. ",1 

9,1,9 

8429 DATA “YOU ARE IM & LARGE FACTORT.",O, 

OD; S.d 

0438 DATA “TALL SKYSCRAPERS SURROUND YOU.” 

E o 

8448 DATA “TO CAM SEE LARGE GMITE 
BUILDINOS.*,1,9,1,1 

5458 DATA “TOU MAVE SUDDENLY CAM INTO 
DARKNESS. ",0,9,1,1 

0468 DATA "TOU ARE OM & VEIRD FLAT METALLI 

CSURFACE.",1,9,8,1 

8478 DATA “THE CAMEL IS MEXT TO YOU.*,1,0, 

o 

BS DATA “TOU CAM SEE THE SEA DOWN A LARS 

EDROP*,1,98,8,1 

S4PS DATA “THEPE IS A STONE WALL MERE.",I, 

e,1,0 

USOS DATA “THE AIR IS THIN AND YOU CANNOT 
SEE MUCH IM THE FOO.",1,5,14.1 


SS18 DATA "THE MIBM NOUNTAINS AROUND YOU 
ARE DAMP",1,9,1,1 

0528 DATA “IT IS RAINING HARD AND THE FOG 
MEANS YOU CAM SEE VERY LITTLE.",1,9,1,4 

9,1,8 

850 DATA “THE AIR 18 THIN AND YOU CANNOT 
SEE MUCH IM THE FOG.º,1,9,1,1 

SSIS DATA “THE HMIBM MOUNTAINS AROUND YOU 

ARE DAMP*,1,0,1,1 

8528 DATA “IT IS RAININO HARD AND THE FOS 
MEANS YOU CAM SEE VERY LITTLE.*,1,9,1,1 

8538 DATA “THE RAIN IS UNBEARABLE AS YOU 

BATTLE TO DEFEAT TME TRIPODS. “,1,8,9, 


6709 REM random k111 

8791 INK 7: PARER E 

8792 FOR J=39 TO 17 STEP -i: IF atzivwats) 

AND 2<>/ AMB 72<17 THEN Go TO 8718 

9784 NEXT 4 

0709 FOR J=1 TO 17: IF a(xiva(s) AMD 2<)3 

AND 2>=17 TMEN DO TO 0718 

6797 NEXT 4: METUBN 

8718 FOR j=1i TO 29: IF altziva(j) AND 4<5z 

THEN 00 TO 8725 

0715 NEXT 4: mETURS 

R720 FOR 1=1 TO mo: IF ptti=j THEN RETURN 

87390 NEXT 1 

8732 PRINT “YOU ARE DEINO ATTACKED BY 
“1A8(J) 

8735 LET K=INT ([WNDES)-4 

"48 TF ctjIm<mc(r)+3 THEN 00 TO 0748 

745 LET ctz)=ctz1i-47 PRINT “YOU WERE BADL 

Y INJURED.” . 

8747 [IE c(tz)i< THEM PRINT “INFACT LOU MAV 

E. BEEN KILLED. ": LET a(tz)=99P; 00 TO 4638 

87568 00 TO 97PE . 

B768 TF ctjtisckImE(7)-S THEN GO TO 0778 

8762 LET ctfimc(tg1i-41 PRINT aB(j)1"º UVAS BA 

Dr INITURED., * 

8765 IF c(tjI<= THEM PRINT "“INFACT "“paBt(s> 

|" HAS PEENMCTILLED.,*: LET a(j)I=PPP: 60 TO é 

39 

8748 00 TO 8798 

8770 IF c(jr>rcazr* THEN PRINT “YOU WERE 811 

OGHTLY INJURED.*: LET ctzi=cíiz)-i: 00 TO 07 

9 

8773 IF ctji<c(tiz) THEN PRINT aB(j)4" WAS S 

LIGMTLY INJURES.*: LET ctjIimc(j)-1 

8798 PRINT PAPER 214 INK 7jam(z);" DO YOU W 


ANT TO DROP Mi YOU ITEMS AND CONCEED 7º 
8791 POKE 23469Z,235 
8792 INPUT I"CONMAND :“jis 
8793 IF 49="YES" OR 16="yY* THEN GO TO Zuss 
8794 G0 TO 8735 
8099 REM end ' 
8992 IF a(r)<>29 TMEN PRINT “YOU CANNOT FI 
RE HERE TO VIM THE GAME.*: GO TO 438 4 
6684 IF 1(ziI=S OR j(z)»9 THEN PRINT “YOU D 
O NOT HAVE THE PIOHT THIMG TO FIRE WITH": 
go TO e3s 
SSIS TF z>16 AMD DE(j(z))="BALLOON. *“ AND 
DB((1(7)))/="GREMADE * THEN PRINT FLASH 
11 PAPER 15 INK 45" - 
EMB OF GAME ,"jas(z)j* + 
AS WOM THE GE. ) 
“: FOR k=i TO 18: BEEP .3,ks 
NEXT k: PAISE 108: GO TO 1998 
BO29 IF z>16 AMD bS(i(z))="BALLOON. * AND 
DS((J(7))11=-" GRENADE * THEN PRINT FLASH 
11 PAPER Ly IX S5* 
END OF GAME ,"jaS(z)s* “e 
AS WON THE GasE. 
“7 FOR k=1 TO 18: DEEP .3,k: 
NEXT k: PASSE 188: 00 TO 169 
PRINT “YOU DO NOT HAVE THE RIGHT THIN 
FIRE VITHM.": GO TO 6348 
REM random move 
RESTORE ((18%a(z))+7498): READ vO,v,w 


LET kkk IWT (RNDESG+1) 
IF kKkei AMD v=1 THEN LET alk)=a(tk)-t 


IF Kko7 AMD wi THEN LET alkivalkiss 


IF vKK=3 amb x=1 THEN LET atkiva(k) sã 
IF Kiko AMD y=13 THEN LET atkiea(tk)-1 
RETURS 
REM the varíiabios 
9810 DIM (38,16): DIM a(3H): DIM c(3H): 
DIM d(36)1: DIM DbO(16, 10): DIM f(14): DIM q 
(16) 
9011 DIM sS:35,161: DIM (39): DIM 1(39): 
DIM 4 (385 
96012 DIM kK (35,30: LET numbalsg 
828 s(1)="UMAi 1 MASTER" 
9038 28(2)="DREADFUL. MASTER" 
8(31="VIOLENT MASTER" 
s(4]="CL EVER MASTER" 
a8141="GREEDY MASTER" 
as(5S)I-"FAT MASTER" 
“s(6)="PIGO MASTER" 
7" =" Y MASTER" 
asiBi="TAL1 TRIPOD* 
as(PI="NEAM TRIPOD* 
(18) ="VEAK TRIPOD* 
28(11)="STRONG TRIPOD* 
sS(17)=*BMINY TRIPOD* 
28413)". OW TRIPOD* 
aS(i4I=" LITTLE TRIPOD* 
a8(131="HUGE TRIPOD" 
as(16)=* INJURED TRIPOD* 
(171 =" ARDE VAGRANT* 
(18) ="CLEVER VAGRANT* 
BC1IPI="DCRUFFY VAGRANT* 
2 ="MUTTY NOMAD” 
a8(211="0D NOMAD* 
81722) ="WEEDY NOMAD* 
281231 =" HENRY" 
as (24)7=* BENPOLE“ 
aS(Z53) ="VILLAIMS 
as(Zá) ="VISEMAN* 
as (27)="MISTER PARKER" 
as (28) =*"OZYMANDIS* 
as(2Z7)="CAPTAIN CURTAS" 
as (368)="CONTESS* 
RESTORE P499 
FOR J=1i TO 39: READ A! LET a(JI=A:S 


FOR J=1 TO 39: READ A: LET c(JI=A: NE 
FOR J=1i TO 39: READ A! LET d(JI=A: NE 


DATA 29,29, 29, 29,29,29,29,464,7,8,17,21 
,32,33,34,199,74,15,34,4,76,41,19,1,11,70, 
23,24,73,47 
P428 DATA 5,7,97,5,7,6,0,0,97,4,97,7,6,5,7,6, 
6,0,6,7,4,2,6,4,6,7,0,7,6,4 
7438 DATA 6,5,19,7,4,0,9,5,6,4,9,9,5,64,18, 
D,7,0,6,7,6,6,0,7,.0,509,7. 544 

LET DS(1)="SWORD* 

LET bS(Z)=“*KNIFE* 

LET bS(3)="“PEN" 

LET DS(4)=*VATCHS 

LET bS(S)="BAG* 

LET DS(4/="OREMADE* 

LET bS(7/="BALLOON* 

LET bS(S)="CAR* 

LET bS(P)="HORSE* 

LET DS(19)="TRAIN* 

LET bO(11)=*FLICKNIFES 

LET bS(12)/-“ROPE* 

LET b8(13)="BOAT* 

LET bDS(14)="RIVERBOAT* 

LET DS(1S)=“*HYDROGEN" 

FOR $=i TO 15: READ a: LET ftil=a: ME 


FOR j=1 TO 15: READ at LET g(14)=a: NE 


P6BS DATA 1,93,49,01,17,09,76,02,39,3,997,4 
4,7,72,13 

FAFE DATA 17,146,9,9,2,29,193,7,6,64,5,1,1,9, 
e 

P81S DATA 64,7,7,6,17,29,29,19,37,33,33,32, 
45,46,46,45,58,99,59,96,71,72,72,71,04,05, 
83,04,77,90,98,97,119,111,111,118 

PPP RETURN 


Um inexplicável acidente impediu que este jogo 
tivesse sido publicado na íntegra no número de 
Abril dos JOGOS SORTIDOS. 

Do facto pedimos desculpa a todos os nossos 
leitores, aproveitando para agradecer a todos os 
que se nos dirigiram no sentido de repormos a 
verdade de «MINOTAURO». 


Neste jogo de C. C. Stock para o ZX SPECTRUM, 


você é o objecto de diversão de um rei de maus instintos, 
que o atira para dentro de um labirinto dominado por 
um terrível Minotauro. A primeira operação que terá que 
fazer é descobrir uma espada, uma armadura e um 
escudo, para se defender do Minotauro. Um mapa com 
os dados para esta descoberta é a única coisa que 
você possui. Com as armas e protecção em seu poder 
conseguirá matar o Minotauro... Todo o movimento do 
jogo é muito rápido. O Minotauro aparece-nos com 7 
tamanhos diferentes, crescendo à medida que se apro- 


Xi 


ma de si. Prima «M» para ver o mapa. Enquanto o 


mapa aparece no écran o programa pára. 


O labirinto é construído por 4 linhas; 2 para as pas- 


sagens horizontais e 2 para os corredores verticais. 
«O» representa uma abertura no corredor; 

«5» representa o corredor normal e «1» — «4» os cruza- 
mentos. Para desenhar novamente o labirinto, modifique 
as linhas 60 — 140 e 2401 e na linha 20 x1 e y1 refaça 


a 


posição do Minotauro + 2. Os números das linhas 


dos corredores do labirinto também devem ser alterados. 


Linhas / Funções 


LS 


e 
La 


apons hidden in 


15-20 - Introdução 4 
60-80 - Corredores do labirinto 
100-180 - Mapa 
200-280 - Desenha o corredor 
300-350 - Desenha o cavaleiro 
400-530 - Desenha as passagens laterais 
610-630 - Pode ver-se o Minotauro? 
700-770 - Controles 
800-840 - Desenha o corredor final 
850-870 - Quando voltar muda as variáveis 
1000-1170 Movimento do Minotauro 
2000-2100 - Desenha o Minotauro 
2401 Desenha o mapa 
3000-3030 - Fim 
3200 Posicionamento aleatório 
da armadura e do homem 
3400-3440 - Apanha a armadura 
4000-4540 - Minotauro e o homem 


> REM *KXHX ID MAZE KXFEE 
e C.C.Stock 1983 


19 IMK 9: PAPER 4: BORDER 2: Cc 


13 PRINT AT 6,729" MINOTA 


For the amusem 
you have been d 
Minotaurs maze. 
is to find 3 we 
the maze using 


URPS AT BO,9Sº 
nt of the kíng 
opped into the 
You only hope 


a map provided * 


yl=16: 
=: 


L 


28 GO SUB 4999 
30 DIM ag(4,34): 
l=-1: LET j=-1: LET x1=29: LET 
LET qi=t: LET s=1: LET ti 
LET t2=9: LET +3=8 : 

49 LET k=1: IF RND <.5 THEN 
ET k=-1 


LET ai=3:º LET 


69 LET a&(1)="9354553554993554 
555355554539455539" 

78 LET a$(2)="9354553554553554 
SIISVOODISISASSIIO” 

75 LET a6(3)="91552555190925551 
02551529" 

89 LET a$(4)="0155299915525551 
SAI S2D” 


129 LET g%=" -E-NE-NN-BR-EM-BRE- 
BREE-E-E-NER-* 

159 LET h$=" -NHEE-NRNEE-RBRRRRE - 
SEREEE - BEER - " 

149 LET i%="EE-NRNEE-NRNEE-RERE 
BERE-EEE-ERNE" 

145 PRINT AT 18,4;"Use keys 5, 
6,7k&k8 to move"; AT 29,8/"Press a 
ny key" 

1359 IF 
158 

169 GO SUB 2499: GO SUB 3299 

1780 PRINT AT 8,16; INVERSE 15" 
Press"; AT 9,léj"any key": INK 9 
- PAPER 6: FOR n=1 TO 3: PRINT 
AT wiL,n),w(2,n)s;"X": NEXT n 

189 BEEP .8,-16: BEEP .8,-22: I 
F IMKEYS ="" THEN GO TO 189 

198 INK 6: PAPER 2: CLS : PAPER 
g 

195 PRINT AT 3,17;"Press M for 
map"; AT 5,17;"Press A to pick" 
' AT 6,175" up armour " 

241 FOR n=8 TO 21: PRINT AT hn, 
G;º “4 NEXT n 
225 LET m=8 

219 FOR n=9 TO m-i 

2350 IF af(a,nkk+p)="8" 
T m=n+1i: GO TO 399 

268 PLOT 8Xn, 1l6%n: 
RAW 9, 159-16%Kn 

278 PLOT 127-8X%n, L6%n: 
16: DRAW 9,159-16X%n 

289 NEXT n | 

S19 FOR n=8 TO 6 

320 PRINT AT 14+n,65 INVERSE 1 
1r$(1+4%En TO 4+4%Xn): NEXT n 

SS IF ti=1i THEN PRINT AT 45, 
os -ENK 63º" "3 AT 16,81" “E AT 37 
AT 9,171 INVERSE 15" Swo 


INKEY6 ="" THEN GO TO 


THEN LE 
DRAW 8,16: D 


DRAW -8 e 


rd á 
s474 IF t2=1 THEN FOR n=8 TO 3: 
PAPER 4: PRINT AT 15+n,93 INK 
95º/": NEXT nº? PRINT. WT XA,4718 
Shield ": PAPER 9: PLOT 72,48: 
DRAW 7,9: PLOT 72,32: DRAW 7,9 
359 IF t3=1 THEN PRINT AT 14, 


7; PAPER 2; Helm 
e 9 

419 PLOT 9,9: DRAW 8,16: DRAW 
INVERSE 15-7,8: PLOT 127,8: DRAW 
-8,16: DRAW  INVERSE 157,9 

428 FOR n=m-1 TO & STEP -1 

4329 LET b= VAL asia, ptnkk) 

449 IF b=5 THEN GO TO 529 

458 IF b=9 THEN LET m=m-1: GO 
TO 8g1 

468 IF b=1 OR b=2 THEN IF agt(b 
,x+k)="8" THEN GO TO 498 
478 IF b=4 OR b=3 THEN IF 
sy-k)="8" THEN GO TO 591 
489 PLOT 6SXn, 1l6%n: DRAW  INVERS 
E 158,16: DRAW -7,8: DRAW 7,8: D 
RAW 8,16: DRAW INVERSE 15-7,8 
498 IF b=1 OR b=2 THEN IF agt(b 
,;x-kK)="8" THEN GO TO 528 
Sg1 IF b=3 OR b=4 THEN IF 
sy+k)="8" THEN GO TO 528 
s1Z PLOT 127-8Xkn, 16Xn: DRAW JIN 
VERSE 1;-8,16: DRAW 7,8: DRAW -7 
52: DRAW -B, 16: DRAW  INVERSE 15 
7,9 

s29 NEXT n 

s3g PLOT mkSB,m$lé: DRAW  INVERS. 
E 158,16: PLOT 127-mxB,mkié: DRA, 
W INVERSE 11-8,16 ) 
621 PAUSE 39: IF RND <.7. THEN, 
GO SUB 1999 

618 IF x=x1i AND y=y1i THEN GO f 
o 3089 : 
629 IF q=-1 THEN LET y=p: IF x, 
=x1i AND (y1l-y)xk <= m THEN LET 
d=(y1l-y)Xk: IF d>-1 THEN GO SUB 
“2019 
632 IF q=1 THEN LET x=p: IF y= 
y1 AND (xi-x)Xk<m THEN LET d=(x 


"WU"; AT 19,175" 


as (b 


as (b 


=x) Xk: IF d>-1 THEN GO SUB 281 
g 1 
648 INK é 
218 IF INKEYS ="a” THEN BEEP : 
.1,24: GO TO 3499 : 
226 IF INKEYS ="m" THEN GO SU 
B 2498: GO TO 178 
238 IF INKEYS ="6" THEN LET k 
=kx-1: GO TO 281 ; 
248 IF  INKEYS ="7" THEN IF a$, . 
taspék) <> "8º THEN LET p=pt*k: 
BEEP .2,9: GO TO 491 HE 
250 IF JINKEYS ="S" AND b<>5, 
THEN LET k=-qxk: GO SUB 859: GO 
TO 281 | 
268 IF INKEYS ="8" AND b <> 5. 
THEN LET k=qtk: GO SUB 858: GO. 
TO 291 
778 GO TO 681 | 
g1g PLOT BX(nt1),175: DRAW INV 
ERSE 1,9,-159+16%n: DRAW  INVERS 


DRAW 16%(7-n)+15,8: 


E 1,-8,-16: 


Í 


2284 FOR e=8 TO 5: 


DRAW  INVERSE 15-8,16: 

ERSE 1;9,159-16%n 

828 PLOT BX(n+1),16X(n+1): 
INVERSE 1516%X(6-n)+15,9 

838 PLOT 48,48: DRAW 31,9: 

48,32: DRAW 31,9 

848 GO TO 528 

858 IF b=1i OR b=2 THEN LET p=x 

869 IF b=3 OR b=4 THEN LET p=y 


DRAW. 
DRAW 


PLOT 


879 LET a=b: LET q=-q: RETURN 
1901 IF qi=1i THEN IF as(al,yi)= 
"5" THEM LET yl=y1i+j: RETURN 
19124 IF qi=-1 THEN IF as(tali,xi) 
="5" THEN LET x1i=x1+1: RETURN 
19020 IF x<x1 THEN LET 1=-1 
1939 IF x>x1 THEN LET 1=1 


1940 IF y<y1i THEN LET j=-1 

1959 IF y>y1i THEN LET j=i 

17269 IF qi=-i THEN GO TO 1128 
1979 LET bi= VAL as(al,yl) 

19089 IF x=x1 THEN IF as(al,yl+j 


) <> "9" THEN LET yi=y1+j: RETU 

RN 
129r 17 as(bl,xi+1:;9<4> *2* THEN 
LET asimbit LET 'G1=-25 Le) xwxiexl 
41: RETURN 

3121 TF asStbl,yléj: £> "Bº THEN 
LET )/3,)+4j: RETURA 

1118 LET 45-j! LET J=-2º 65 TO 1 

EPE 25 

11282 LET bi=-VAL as(ai,x1) 

1132 IF y=:y1 THEN IF astal,x1+]) 
p >. *9* THEN LET xDexi+): RETU 

RN 

1148. 27F aBtbt viés) 4H. 12º THEN 
LET atebis LET. qi LET sy3=9]3 

52º RETURN 

1169 IF agstal,xl41) <> “8º THEN 
LET x1=x1+1: RETURN 

1179 LET j=-j: LET 1=-)1: GO TO 1 
148 

2815 INK 3 

2828 GD TO 2238+19Xd 

2648 FOR e=8 TO B: PRINT -AT 5S+e 
;41 INVERSE l;jms(7%e+1 TO 7%e+72) 
: MEXT e: RETURN Na 

2256 FOR e=8 TO B: PRINT AT Ste 


;S; INVERSE Ijns(l+ex6 TO 6+exó) 
2: NEXT e: RETURN 

2266 FOR e=B TO B: PRINT AT 5S+e 
3914 INVERSE 1;joS(]1+-ex5 TO 5+t€eX5) 
2 NEXT e: RETURN 

2678 FOR e=82 JO 7: PRINT 

;,6; INVERSE ljpsil+ex4 TO 
2: NEXT e: RETURN 


AT s+e 
4+ex4) 


AT 5+6 
S+e 45) 


PRINT 
,25 INVERSE 1IgslIre*3 TO 
* MEXT e! RETURN - 


2Xy ”— tuist EL to pa FT tvi Ê ua À 


,7; INVERSE 1;g8/19+0%2 TO 2g+e% 


| - iBdeE e) Sr j 
2): NEXT e: RETURN 3428 IF y-Z=wt1,2) AND x-Z=n (2, en 


2191 PRINT AT SE APS AT Es? a + THEM -VEET  te=s 

a ; 3432 IF y-2Z=wl1,3) AND E o 

72118 RETURN THEN “LES -T351 

2481 PAPER SB: INK 4: PRINT ATZ zx442 GO TO 338 

sZjes: PRINT 9S;jgs;ite;h$ihsihrie 4218 LET ms="EBL CAERB AEEP”+ 

Ej iG; iG; feIGgSISEISSIeSs; 16; +6/h8); CHR$ 129+º "+ CKkRE 139+"AE"+ CHR 

hTt;jes;9t;fs: RETURN O 431+4ºF MH 6"+ CHAS 13AF* 

3SS1€ IF ti=1 AND t+231 AND t3= EF DD Er cm» e 

HEN IF SCREENS (8,7)="M" THEN 4228 LET. n$="EIDC"+ CHRS 133+" EE 

PRINT AT 21,94 . FLASB.11" You E "+ CHRS 136+ CHRS 132+ CHRS 133 

have killed the minotaur .*": GO T +" ERZE *+ CHRE 132+ CHRS 136+" E. 

G J83F lo = »- Cb E beta 

3622 INK 5: PAPER 1: PRINT AT 2 CE” - 

g,2; FLASH 15" You have faíled a 4838 LET oS="EE “+ CHRS 1553+" EEE 
"+ CHRS 133+"E"+ CHRS 131+ CHRE 


nd payed the price of failure 
E 4 139+""4 CHRS 129+ CHRS 131+” 


S939 FOR n=1.TO 2€: BEEP .2, INT C DC DeD CaEDECEEDECE” 
“CC RND *38): NEXT n: INK 3: GO -S 4247 LET ps="BDLEEDCH E sm 
UB 2949: INK 6: PAPER 8: STOP DB ABCDABCDA* | 
S218 DIM nt2,90) | agõa LET qe="E AF G. E ERE“+ CH 
s228 FOR nz] TO 4 - RE 133+"5E"+ CHRS 133+"E"+ CHRS 
TEN CRS w:D JN? 4 MNE 221: LET 133+" “+ CHRE 136+ CHRE 132+"E" e 
u2= INT 4 END $32) + CHR$ 133 o 
240 IF “SCREENS (nl ,n2)=º-º THE 4968 LET pS="E E"+ CHRE 131+" 
à LET wti ni” LET W:2,n) =w£s "+ CHR$S 431+"=/==0 0  ="+ CHR$& 136 

NEXT -nº GO TD SSB 40" “+ CHR$ 136FºPº+ CHARS 1554"E 
no=ã LET wmiswmls!! LET wZ=uBtis 1 "+ CHRS 133+]"+ CHRS 133+"Eº+ C 
P miv2s TREE LET qicP HR$ 133 À 
Soo TE mia THEN LET w2=£ 451% FOR n=8 TO 55: READ a: POKE 
3278 GO TO 324£ | USR CHRT 1444n. a: NEXT nº: RET 
T301 LET y=wt1l,4)422 LET x*nt2,4 URU | dar 
) +42 | 4528 DATA 127, 42?, 127; LaP 17,12 
SOS 1F n6!5,uit3)=0 2 OR as(csh >, 127,127,254,Z54,254, 254 ,254,25 
142)="1* THEN LETbL= VAL aFison 4,254, 254 

| 


142): LET q=-1: GO SUB ESB: GU 4539 DATA 1,514,171,1, 1,173, 100,1% 


DO 178 | e,128,1268, 126, 1205720, FAN 
Z359 LET b= VAL As(I,w2+2): LET 4548 DATA 24,24;24,24,24,24,24,2 
q=1: GO SUE ESg: 60 TO 178 A | | ? 
3419 IF y-2=w(2,1) AND x-2=wt2,1  qssg DATA 254,254,254,254,8,8,8, 
) THEN LET tisil 8,127,127,127,12750, 0,00 6 


CORREIO DO MÊS 


Helder Alexandre Sousa e Silva 
Rua Capitão Tinoco de Faria 
4830 POVOA DE LANHOSO 


O programa «ASTER» foi novamente testado e não foi detectado qualquer erro na sua listagem. Se 
referir em concreto qual é a sua dificuldade em programá-lo, talvez o possamos ajudar. 

Quanto ao jogo «MINOTAURO», concerteza já reparou, pode encontrar a sua listagem completa nas 
páginas desta revista. 

Renovamos o nosso habitual convite: enviem-nos os vossos programas originais, para teste e publicação 
nas páginas de «JOGOS SORTIDOS». Se, por qualquer motivo, não possui algum dos números de . 
«JOGOS SORTIDOS» nesta sua NOVA FASE, dirija os seus pedidos para: 


JOGOS SORTIDOS - Rua Duque de Palmela, 37-2.º Dto — 1200 LISBOA 


fazendo-os acompanhar de cheque ou vale postal no valor de 80$00 para os números 35 a 39, e de 
100$00 para os números 40 em diante. i 


